[hugolom]

Код:

var d:TDateTime;
s:string;
begin

memo1.Text:=FormatDateTime('dd.mm.yyyy tt',now);