Dosya Boyutunu Gösteren Program.

procedure TForm1.Button1Click(Sender: TObject);
var
  srFileSR: TSearchRec;
  sFileName, sFileSize: string;
begin
  sFileName := 'c:\deneme.zip';
  FindFirst(sFileName,faAnyFile,srFileSR);
  sFileSize := IntToStr(srFileSR.Size);
  Showmessage(sFileSize);
end;