namenslänge beim speichern begrenzen

[tkone]

hi. habe eine delphianwendung, die den inhalt eines arrays in eine datei schreibt.
diese datei bekommt einen header und dann den inhalt des arrays.
nun beinhaltet der header aber auch den dateinamen und ist somit von variabler länge.
ich möchte nun den quellcode so umschreiben, dass der dateiname max. 15 zeichen( + "." + "endung") enthalten darf.
leider hab ich davon keine ahnung, da ich das programm nicht geschrieben hab

es muss keine hübsche oder professionelle lösung sein, da das programm selbst nicht hübsch programmiert ist ^^
funktionalität und einfacher code sind wesentlich wichtiger für mich.
vielleicht könnt ihr mir nen kleinen tipp geben in welche richtung das gehen müsste.

also hier mal der code der speichern funktion

Delphi-Quellcode:

SaveDialog1.FileName:='';
SaveDialog1.FilterIndex:=DefCloseIndex;
SaveDialog1.Title:=L[78];
SaveDialog1.InitialDir:=Pfad_JC_Close_TMP;
If SaveDialog1.Execute Then
Begin
 Pfad_JC_Close_TMP:=ExtractFilePath(SaveDialog1.FileName);
 
// ... geht hier noch ein bissl weiter