Fecha de modificación de Ejecutable

[ArtPortEsp]

Encontré este código para obtener la fecha de modificación de un archivo:

function GetFileDate(TheFileName: string): Double;
var
     FHandle: integer;
begin
     FHandle := FileOpen(TheFileName, 0);
     try
          Result := FileDateToDateTime(FileGetDate(FHandle));
     finally
          FileClose(FHandle);
     end;
end;

Sin embargo no funciona si se trata de obtener la fecha del EXE que se esta ejecutando, (FILEAGE funciona*, pero no funciona si se trata de obtener la fecha de un archivo en una RED local);

Que me pueden sugerir para obtener esa fecha sin importar si es el ejecutable que uso o alguno en la red?

Gracias