[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:='';