[4kusNick]

Код:

function GetCurrentDateTime: TDateTime;

var
  SystemTime: TSystemTime;
begin

  GetLocalTime(SystemTime);
  Result := SystemTimeToDateTime(SystemTime);
end;

А дальше уже сам разберешься