Propiedades de Ficheros

[Lapiz_y_Papel]

FilesizebyName me da el siguiente error al compilar: Identificador no declarado; segun he leido tengo que declarar idglobal en la cláusula Uses
pero aún así me sigue dando el mismo error; ¿Que es lo que hago mal?.

No obstante he encontrado este código

http://www.delphi3000.com/articles/article_2686.asp

que funciona muy bién.




//========================================================
function GetFileSize(FileName: String): Integer;
var
FS: TFileStream;
begin
try
FS := TFileStream.Create(Filename, fmOpenRead);
except
Result := -1;
end;
if Result <> -1 then Result := FS.Size;
FS.Free;
end;
//========================================================

==========================================================
Example of use:
==========================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage(IntToStr(GetFileSize('c:\prova.pdf')));
end;
==========================================================
Saludos.