Rückgabewert könnte undefiniert sein!

[Headi]

Hallo leute,

Hab irgendwie gerade gemerkt, dass es einen Unterschied gibt zwischen projekt erstellen und projekt Compillieren...
Auch wenn ich nicht weiss wo der ist, weiss ich das bei projekt erstellen folgender fehler kommt:

Code:

[Warnung] IdGlobalProtocols.pas(1445): W1035 Rückgabewert der Funktion 'GetGMTDateByName' könnte undefiniert sein

in folgendem Code:

Delphi-Quellcode:

function GetGMTDateByName(const AFileName : String) : TDateTime;
 {$IFDEF WINDOWS}
var LRec : TWin32FindData;
  LHandle : THandle;
   LTime : Integer;
 {$ENDIF}
 {$IFDEF LINUX}
var LRec : TStatBuf;
  LTime : Integer;
  LU : TUnixTime;
 {$ENDIF}
begin
  {$IFDEF DOTNET}
 if not System.IO.File.Exists(AFileName) then
    Result := -1
  else
    Result := System.IO.File.GetLastWriteTimeUtc(AFileName).ToOADate;
  {$ENDIF}
  {$IFDEF WINDOWS}
  LHandle := FindFirstFile(PChar(AFileName), LRec);
  if LHandle <> INVALID_HANDLE_VALUE then
  begin
    Windows.FindClose(LHandle);
    if (LRec.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
    begin
       FileTimeToDosDateTime(LRec.ftLastWriteTime, LongRec(LTime).Hi, LongRec(LTime).Lo);
       Result := FileDateToDateTime(LTime);
    end;
  end;
  {$ENDIF}
  {$IFDEF LINUX}
  if stat(PChar(AFileName), LRec) = 0 then
  begin
    LTime := LRec.st_mtime;
    gmtime_r(@LTime, LU);
    Result := EncodeDate(LU.tm_year + 1900, LU.tm_mon + 1, LU.tm_mday) +
              EncodeTime(LU.tm_hour, LU.tm_min, LU.tm_sec, 0);
  end
  else
  begin
    Result := -1;
  end;
  {$ENDIF}
end;

jetzt erstens habe ich diesen code irgendwie noch nie gesehen und zweitens ist er in der "IdClobalProtocols" was das auch immer bedeuten mag


Naja ich weiss jetzt halt nicht wie ich den fehler weg kriege....
Und desshalb kann ich mein projekt nicht "erstellen" auch wenn "compillieren" geht.


bitte helft mir

mfg headi