Código Delphi [-] var a:tdate; begin a:=now; edit1.text:=datetostr(a); end
var a:tdate; begin a:=now; edit1.text:=datetostr(a); end