Fechas de archivos

[[Gunman]]

Tengo una función que tiene el siguiente código:

Código Delphi [-]
var
  SearchRec: TSearchRec;
  SysTime: SYSTEMTIME;
begin
  if FindFirst(lFileName, faAnyFile, SearchRec) = 0 then
  begin
    FileTimeToSystemTime(SearchRec.FindData.ftCreationTime, SysTime);
    Result := DateTimeToStr(SystemTimeToDateTime(SysTime));
  end;
end;

Funciona casi perfectamente, y digo casi porqué me devuelve la fecha dos horas antes de la original, me explico? Es decir, si creo un archivo a las 21:00:32, la función me devuelve 19:00:32. Y claro está si el archivo está creado antes de las 02:00:00 la función me devuelve al día anterior.
Qué sucede? Cómo lo solucino, le sumo dos horas y andando?