procedure TForm1.Button1Click(Sender: TObject);
Var Fichier:String;
SearchRec : TSearchRec;
begin
Fichier:='c:\MonFichier.txt';
if FindFirst(Fichier, FaAnyFile, SearchRec)=0 then
Label1.Caption:=IntToStr(SearchRec.Size); //Taille en octets
FindClose(SearchRec);
end;

procedure TForm1.Button1Click(Sender: TObject);
Var F: File of Byte;
Fichier:String;
begin
Fichier:='c:\MonFichier.jpg';
if FileExists(Fichier) then //Vérifie que le fichier existe
begin
AssignFile(F,Fichier); //Associe la variable F au fichier
Reset(F); //Ouvre le fichier sans le modifier
Label1.Caption:=IntToStr(FileSize(F)); //Taille en octets (FileSize ne peut être utilisée avec un fichier texte)
CloseFile(F); //Ferme l'association entre la variable F et le fichier
end;
end;