[Resolvido] Função que retorna data e horário correntes

http://forum.imasters.com.br/public/style_emoticons/default/closedeyes.gif

function Now: TDateTime;

 

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Caption := 'Data e hora atual é ' + Str(Now);

 

end;