Problem mit Funktion: GetFileLastAccessTime

[Sprint]

Delphi-Quellcode:

function GetFileLastAccess(const FileName: String): TDateTime;
var
  SR: TSearchRec;
  stUTC, stLocal: TSystemTime;
begin

  Result := 0;

  if FindFirst(FileName, faAnyFile, SR) = 0 then
  begin
    if FileTimeToSystemTime(SR.FindData.ftLastAccessTime, stUTC) then
      if SystemTimeToTzSpecificLocalTime(nil, stUTC, stLocal) then
        with stLocal do
          Result := EncodeDateTime(wYear, wMonth, wDay, wHour, wMinute, wSecond, wMilliseconds);
    FindClose(SR);
  end;

end;