Если ты знаешь что все разширения из 3 символов то в событие OnChange добавляешь
Код:
for i:=0 to Filelistbox1.Count-1 do begin
Filelistbox1.Items[i]:=Copy(Filelistbox1.Items[i],1,length(Filelistbox1.Items[i])-4);
end;
в противном случае практически тоже самое тока ищешь точку и отнимаешь нужное число символов