[<<D>>]

//У файлов Ext Может Быть более чем 4(пример:".mpeg");
for i:=0 to Filelistbox1.Count-1 do begin
Filelistbox1.Items[i]:=Copy(Filelistbox1.Items[i],1,length(Filelistbox1.Items[i])-length(extractfileext(Filelistbox1.Items[i])));
end;