ディレクトリ内のファイルサイズの合計を得る例です。
サブフォルダもカウントする場合は再帰をかけますがその例は
nifty:FDELPHI/MES/15/161を参考にして下さい。

フォームにボタンを一つおいて、ボタンのクリックイベントを以下の様にします。
(ListBoxにはファイル名のリストを表示します)
procedure TForm1.Button1Click(Sender: TObject);
var
   dirname:string;
   total,RC: Integer;
   SearchRec : TSearchRec;
begin
   ListBox1.Clear;
   dirname:=DirectoryListBox1.Directory;
   if not IsPathDelimiter(dirname,length(dirname)) then
　　　　　　　　　　　　　　　　　　　　 dirname:=dirname+'\';
   total:=0;
   RC := FindFirst(dirName+ '*.*', faAnyfile-faDirectory,SearchRec);
   try
      while RC = 0 do
      begin
         if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then
         begin
            total:=total+SearchRec.size;
            ListBox1.items.add(SearchRec.Name);
         end;
         RC := FindNext(SearchRec);
      end;
   finally
      sysutils.FindClose(SearchRec);
   end;
   showmessage(intToStr(total));
end;
☆☆☆　　かわいいコードにゃ旅をさせよう　いざサンプル蔵へ!!　☆☆☆
                                 98/11/12(木) 00:49 凛(MXB01744)

Original document by 凛              氏 ID:(MXB01744)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。