Filelistbox i wielkości plików

Witam!

Mam procedurkę do sprawdzania wielkości pliku. Chciałem zrobić za pomocą Filelistbox aby zliczał mi sumę plików z jakiejś ścieżki podanej do tego komponentu i tą sume aby przedstawiał w Label.

procedure TForm1.Timer1Timer(Sender: TObject);
var
Plik : TSearchRec;
FSize,sys,zestaw,stat : Integer;
const // sciezka do programu
Sciezka ='plik.txt';
begin
if FindFirst(Sciezka, faAnyFile, Plik) = 0 then
FSize:= PLik.Size else FSize:=0;
FindClose(PLik);

I teraz tam gdzie jest Sciezka to musze podać ścieżkę danego folderu, w którym są pliki do zsumowania. Hmm próbowałem dać np. Sciezka='e:\Folder*.*'
ale głównie chodzi mi aby zliczał wielkość plików które sa wyświetlone w Filelistbox.
Nie za bardzo mi to wychodzi zatem prosiłym o skorygowanie błędu. Dzięki!!!

Tylko musisz sobie to jeszcze zamienić na KB, MB, GB czy na co tam chcesz, no chyba że chcesz wynik w bajtach.

var
i,rozmiar:integer;
stream:TFileStream;

begin

rozmiar:=0;
 for i:=0 to filelistbox1.Items.Count -1 do
 begin
  stream:=TFIleStream.Create(filelistbox1.Directory + '\' +  Filelistbox1.Items[i],fmOpenRead);
  rozmiar:=rozmiar+stream.size;
  stream.free;
 end;
 label1.Caption:=inttostr(rozmiar);