FileListBOx i mały problem

Czy jest możliwość w FileListBox ustawić aby znikneło rozszerzenie pliku?

Chodzi o Delphi 2.0

Z góry dzięki!!!--Pozdrawiam
Pik

[email protected]

Ja proponuję procedurkę usuwającą rozszerzenia z filelistbox ale nie z plików

var
s : string;
i : integer;
begin
for i:=0 to filelistbox1.items.count -1 do
begin
s := filelistbox1.Items[i];
delete(s,length(s) - 3, 4);
filelistbox1.Items[i] := s;
end;

end;

Pozdrawiam