Dateiname ohne Endung

[danku]

wo muss ich noch ein end; hinsetzen damit alle files[i] geöffnet werden und nicht nur das 1. n-mal?

Delphi-Quellcode:

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

   // if length(ExtractFileName(opendiag.FileName[i])) >35 then
   if length(ExtractFileName(opendiag.Files[i])) >33 then
      begin

      //Endung
      FilesExtension := ExtractFileExt(opendiag.Files[i]);
      
      //Dateiname ohne Endung
      AlterDateiname:= ExtractFileName(ohne_erweiterung(opendiag.Files[i]));

      //Name ab Position 28 kürzen 
      Delete(AlterDateiname,28,length(AlterDateiname));

      //Neuer Dateiname
      NeuerDateiname:= AlterDateiname + '..' + FilesExtension;

      showmessage(NeuerDateiname);