function GetDateTime:string;
{день-месяц-год-часы-минуты-секунды}
var DT:SystemTime;
day,month,year,hour,minute,second:string;
begin
GetSystemTime(DT);
Str(dt.wday,day);
Str(dt.wmonth, month);
Str(dt.wyear, year);
Str(dt.whour+4, hour);{костыль! Сломать ногу!**********Пока вроде успешно работает... Почему?**********************}
Str(dt.wminute, minute);
Str(dt.wsecond, second);
GetDateTime:=day+'.'+month+'.'+year+' '+hour+':'+minute+':'+second;
end;