[Paskal]

Всем привет! Такая задачка нужно чтобы размер выделеного файла отображался в StaticText3.Caption. И сходя из этого написал я такую 'процедуру' размер файла отображается но только при первом выделении файла а нужно чтобы при каждом выделении. Подскажите как можно решить эту задачку.
PS:Заранее спасибо.
Код ----->

Код:

procedure TForm1.FileListBox1Change(Sender: TObject);
var
fSize: Integer;
begin
StaticText1.Caption :=FileListBox1.Directory; //Отображение каталога.
FileListBox1.Hint:=FileListBox1.FileName; //Отображение имени файла.
//------------------------------------------------------------------------
If FileListBox1.ExtendedSelect = False then //Если файл выбран то
                         fSize:= FileSizeByName(FileListBox1.FileName);
                         StaticText3.Caption:='';
                         StaticText3.Caption:= 'Размер '+IntToStr(fSize)+' байт';