Herhangi bir Dosyanın,Boyutunun (Byte)  sade bir Kod'la Alınması;  Bu basit işlem için Form'umuza 1 Adet Button,1 Adet OpenDialog ve 1 Adet Edit Bileşeni(Tercihe göre;Label,DBEdit,Memo'da  olabilir.) Koyuyoruz,ve aşağıdaki Kod'u Button'un "Onclick" olayına yazıyoruz,ve..
procedure TForm1.Button1Click(Sender: TObject);
var//Uses'e= ShellApi; ekleyiniz.
 f: file of Byte;
 size : Longint;
begin
 if OpenDialog1.Execute then//......
 begin
   try
    AssignFile(f, OpenDialog1.FileName);//AssignFile(f, 'C:\Dosya.txt'); //Olabilir.
    Reset(f);
    size := FileSize(f);
    Edit1.text:='Dosya Boyutu : ' +FormatFloat('#,#',size)+' KB';
   finally
  end;
 end;
end;Yine Dosya Boyutunu,Proğram açısından şık ve estetik olan,StatusBar'dada gösterebiliriz,Bunun içinde 1 adet StatusBar Ekleyip,Formumuzu aşağıdaki şekilde düzenliyoruz;
Önce Form'un "OnCreate" olayına;
   StatusBar1.Panels.Add;
   StatusBar1.Panels[0].Width:=260;//Gösterilecek değerin bulunduğu Bölmenin,StatusBarda ki uzunluğu.
   StatusBar1.Panels[0].Alignment:=taLeftJustify;//Yazıyı Sola yaslar
   StatusBar1.Panels[0].Bevel:=pbLowered;.....Yazdıktan sonra Yine Yukarıdaki Kod'u Küçük bir değişiklikle, Button'nun "OnClick"  olayına yazıyoruz;
procedure TForm1.Button1Click(Sender: TObject);
var
 f: file of Byte;
 size : Longint;
begin
 if OpenDialog1.Execute then//......
 begin
   try
    AssignFile(f, OpenDialog1.FileName);//AssignFile(f, 'C:\Dosya.txt'); //Olabilir.
    Reset(f);
    size := FileSize(f);
    StatusBar1.Panels[0].Text:='Dosya Boyutu : ' +FormatFloat('#,#',size)+' KB';//"[0] StatusBar'ın ilk Bölümüdür. diğer ekleyeceğimiz değerlere göre [1],[2] sırayla dizilebilir.
   finally
  end;
 end;
end;Görüldüğü gibi Çok Basit bir şekilde bir dosyanın boyutunu Form'mumuzu Çok uzun kod'larla doldurmadan alıyoruz.
Kolay Gelsin.

Bir katkım oluyorsa ne mutlu bana!..Vee Elimden geldiği kadar ,Proğramcı arkadaşların ,işine yaracak Kodları burada vermeğe devam edeceğim,yanlışım veya bir kusurum olursa tamamlamanızı  rica eder ,bu imkanı verdiğiniz için ayrıca Teşekkür ediyorum. iyi Çalışmalar.