Всем привет! Такая задачка нужно чтобы размер выделеного файла отображался в
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)+' байт';