FileListBox в Delphi 6

[LedWorm]

Подскажите пожалуйста, как сделать так, чтобы в FileListBox не отображались расширения файлов.

[Prisoner]

В procedure TFileListBox.ReadFileNames; осуществляется поиск файлов по маске. Строка где все подходящие файлы запоминаются выглядит так: Items.Add(Format('[%s]',[FileInfo.Name])); т.е. прямо с расширением, т.к. FileInfo: TSearchRec;.
Есть вариант делать невидимым компонент TFileListBox и из него копировать при изменении в TListBox изменяя к нужному виду. А можно выдрать коды TFileListBox из FileCtrl и поменяв там код использовать как свой новенький компонент...

P.S. способы предложены за неимением лучшего...

[LedWorm]

Спасибо за помощь