Código: Seleccionar todo

Var
HoraActual:TTime;
FechaActual:Tdate;
Begin

HoraActual:= Time();
FechaActual:= date();

edit1.text:= TimeTostr(HoraActual);
edti2.text:= dateTostr(FechaActual);
ShowMessage ('Hala Madrid!!!');
       End;
End.