Dateiname ohne Endung

[danku]

Hi ihr

Ich lade über einen TOpendialog i Dateien in eine Stringgrid.
Sobald der Dateiname größer als eine bestimmte Anzahl Zeichen ist (in meinem Bsp. 26)
dann soll der Dateiname "gekürzt" werden, d.h. es sollen 2 Punkte gesetzt werden und die Endung noch hinzugefügt werden.

Bsp:

Dateiname über Opendialog: testtesttestestestestesteste.mp3
Neuer Dateiname: testtesttestestestestestest..mp3

Praktisch habe ich es so versucht:

Delphi-Quellcode:

  
  function ohne_erweiterung(dateiname:string):string;
  var endung:string;
  begin
      endung := ExtractFileExt(dateiname);
      //string dateiname, von Punkt ab bis Endung löschen
      Delete(dateiname,Pos('.', dateiname),length(endung));
  end;

///jetzt wird der opendialog aktiviert////

  if length(ExtractFileName(opendiag.FileName)) >35
   then begin
   //BSP-Datei: testxxxx.mp3

     MyFilesExtension := ExtractFileExt(opendiag.FileName);

     AlterDateiname:= ExtractFileName(ohne_erweiterung(opendiag.FileName));
     
     //lösche die Length(Dateinamen)-26 -> Variable speichern

    // Delete(AlterDateiname, 26, length(AlterDateiname)-26);

    showmessage(ohne_erweiterung(NeuerDateiname));

     NeuerDateiname := AlterDateiname + '..' + MyFilesExtension;

das problem ist bloß dass in der messagebox nix erscheint. ;(