Дата и время изменения файла

Мне нужно в ячейку StringGrid поместить дату и время изменения файла
Делаю это так:

function ReadDate(FN:String):String
var
W: WideString; // полное имя файла
Dat:TDateTime;
FHandle: Integer;
begin
 W:=FN;
 FHandle := FileOpen(w, 0);
 Dat:= FileDateToDateTime(FileGetDate(FHandle));
 Result:= FormatDateTime('yyyy.mm.dd.hh.nn.ss', Dat);
end;

Однако, полученное время отличается от видимого в свойствах файла (в проводнике)
Например:
получено 2008.08.26.19.42.02
в свойствах 26.08.2008 20:42
То есть, ровно на час (если файл был изменен за час до нового года, то на год)
Что интересно, если дату изменения вернуть назад функцией FileSetDate,
то дата в свойствах файла становится на час моложе (прибавляется час)
Сам вопрос:
Можно ли не особенно исхитряясь получить дату съемки полностью соответствующую таковой в свойствах файла.
Если нельзя, то как выяснить (программно) региональные настройки Windows и как их использовать для коррекции полученной даты (нужно их как-то преобразовать, а затем сложить или вычесть…)

(читать всё…)