program tw39735;
uses
  sysutils;
var
  LStart: TDateTime;
begin
  LStart := DateTimeToTimeStamp(Now).Time;
end.