Also ehrlich deine Fragen sind kaum zu verstehen, erkläre doch mal mit einem Satz mehr worauf Du hinauswillst - Ich versteh hier nur Bahnhof, meinst Du vieleicht das hier...
Delphi-Quellcode:
procedure TForm1.FileListBox1Change(Sender: TObject);
var
i:Integer;
begin
for i := 0 to FileListbox1.Items.Count-1 do
FileListBox1.Items.Strings[i]:=ChangeFileExt(FileListBox1.Items.Strings[i],'');
end;