Var D : TDateTime; S : String; begin LongDateFormat:='yyyy-mm-dd'; LongTimeFormat:='hh-mm-ss-z'; D:=Now; S:=DateToStr(D)+' '+TimeToStr(D); end;