Ähm... da sind mehrere Sachen, die so nicht stimmen bzw., die man anders machen sollte. Fangen wir mal an:
- Du brauchst ne Variable nur dann als TStrings zu deklarieren, wenn du dir darurch TypeCasts sparst --> hier nicht der Fall; ==> akl: TStringList
- Du brauchst nicht so elend viele temporäre Variablen, wenn du damit eh nix anstellst
- der eine begin-end-Block is überflüssig
- CreateFile brauchast du nicht
- Nimm statt CreateDir ForceDirectories
- FindComponent bzw. array of TEdit wird dir gefallen
- n try-finally-Block könnt nicht schaden
- nimm
niemals relative Pfade --> arbeite mit ExtractFilePath(ParamStr(0))
- in der Zeile mit ak1.SaveToFile fehlt '.txt'; Das sollte der Fehler sein, warum nix drinn steht; ohne .txt schreibst du eben in ne andere Datei
//Nachtrag:
Och Mann. Zu spät. Was solls, vielleicht hilfts trotzdem...
mfg
Christian