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