Erstellen und anschließendes speichern von txt-files

[gnoll]

Hallo,

ich komme gerade nicht weiter und würdem ich über eure Hilfe sehr freuen.
Ich will aus einem edit ohne savedialog diverse edits in eine selbst erstellten und immer wieder neu erstellten Datei speichern..sozusagen als pseudo temporäre Datei, um die Daten in einem anderen Programm wieder einzulesen. Ich kann nicht den savedialog einsetzen, da ich 7 txt- files erstellen will und nicht 7 mal den savedialog aufspringen lassen will.
Sieht jdm. warum sich das Prog starten lässt, die Datei erstellt, aber nix in die text-file rein schreibt?
Vielen Dank für eure Hilfe,
beste Grüße,

gnoll

Hier der Code

Delphi-Quellcode:

procedure TForm2.AktuelleMessungfrDiagrammmanagerspeichern1Click(
  Sender: TObject);
  var
  akl: tstrings;
ak0, ak1, ak2,ak3,ak4,ak5,ak6,ak7,ak8,
ak9,ak10,ak11,ak12, ak13,ak14,ak15,ak16,
ak17,ak18,ak19,ak20,ak21,ak22 :string;
begin
  CreateDir('rpfad\..\data\Aktuelle Messung');
  createfile('rpfad\..\data\Aktuelle Messung\test2.txt',GENERIC_WRITE,0,NIL,
  CREATE_NEW ,FILE_ATTRIBUTE_NORMAL,0);
 begin

ak0 := 'Aktuelle Messung1'   ;
ak1 := edit91.text;
ak2 := edit92.text;
ak3 := edit93.text;
ak4 := edit94.text;
ak5 := edit95.text;
ak6 := edit96.text;
ak7 := edit97.text;
ak8 := edit98.text;
ak9 := edit99.text;
ak10 := edit100.text;
ak11 := edit101.text;
ak12 := edit102.text;
ak13 := edit103.text;
ak14 := edit104.text;
ak15 := edit105.text;
ak16 := edit106.text;
ak17 := edit107.text;
ak18 := edit108.text;
ak19 := edit109.text;
ak20 := edit110.text;
ak21 := edit111.text;
ak22 := edit112.text;

akl:= tstringlist.create;

akl.Add(ak0)   ;
akl.Add(ak1)   ;
akl.Add(ak2)   ;
akl.Add(ak3)   ;
akl.Add(ak4)   ;
akl.Add(ak5)   ;
akl.Add(ak6)   ;
akl.Add(ak7)   ;
akl.Add(ak8)   ;
akl.Add(ak9)   ;
akl.Add(ak10)   ;
akl.Add(ak11)   ;
akl.Add(ak12)   ;
akl.Add(ak13)   ;
akl.Add(ak14)   ;
akl.Add(ak15)   ;
akl.Add(ak16)   ;
akl.Add(ak17)   ;
akl.Add(ak18)   ;
akl.Add(ak19)   ;
akl.Add(ak20)   ;
akl.Add(ak21)   ;
akl.Add(ak22)   ;

akl.SaveToFile('rpfad\..\data\Aktuelle Messung\test2') ;
akl.free;

 end;
end;