var zaman:String; begin zaman:='Tarih: '+DateToStr(Date)+#13#10+'Saat: '+TimeToStr(Time); ShowMessage(zaman); end;