[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)+' байт';

[lmikle]

непонятно зачем тебе ExtendedSelect проверять в этом случае.

Код:

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

[Paskal]

е мое а я думал что это метка выбора вот и проверяю. Я начинающищий всего не знаю вот и промахнулся. Спасибо