Определить системную дату -Delphi(Делфи)

procedure Dates;
var
s:string;
dt:TDateTime;
begin
s:=DateTostr(dt);
end;