FileListBox ohne Anzeige der Dateiextensions?

[danku]

was funzt hier dran nicht?

Delphi-Quellcode:

for i:=0 to Opendialog1.files.count -1 do
   begin

   name := Copy(ExtractFileName((OpenDialog1.Files.count-1)), 1, Length((ExtractFileName(OpenDialog1.Files.count-1)))-Length(ExtractFileExt((OpenDialog1.Files.count-1))));

   sgfiles.cells[0,1 + i]:= (name);
   sgfiles.cells[1,1 + i]:= (OpenDialog1.Files[i]);