Es wird nur in eine datei geschrieben

[faux]

Du könntest zB die StringReplace's mit Arrays aufbauen...

Und wenn du die edrcon1, edrcon2 und edrcon3 - Objekte (sind glaubich TextFelder) nicht mit dem Objektinspektor machst, sondern wärend der Laufzeit in ein Array schreibst, kannst du zB aus

Delphi-Quellcode:

r1:=edrcon1.Text;
r2:=edrcon2.Text;
r3:=edrcon3.Text;

das machen:

Delphi-Quellcode:

for i := 1 to 3
r[i]:=edrcan[i].Text;

Oder so ähnlich.