Delphi - Como poner la fecha i la hora en un buton

Como se puede hacer para poner la fecha en un buton i la hora en otro.
Muchas gracias.

Button1.Caption:=datetostr(date);
Button2.Caption:=Timetostr(Time);
Button3.Caption:=DatetimetoStr(now);
Si quires refrescar la hora del boton, añade un TTimer al formulario y en el evento OnTimer escribes la sentencia que necesites de arriba.
Suerte