Es wird nur in eine datei geschrieben

[Lindworm]

Hi, ich habe noch nicht all zuviel Ahnung von Delphi, deshalb habe ich hier ein kleines Problemchen und hoffe, dass mir
jemand dabei helfen kann es zu lösen. Wenn ich nen Logikfehler drinnehab, dann bitte nicht nur ne fertige Lösung sagen oder so, sondern nach Mglk. auch erläutern, damitich den Fehler ned nochmal mache

Das ist mein Quelltext:

Delphi-Quellcode:

var
  Form1: TForm1;
  nb1, nb2, nb3, r1, r2, r3, ip1, ip2, ip3 :string;
  snb, snbneu, srconneu, srcon :TStringlist;
implementation

{$R *.dfm}

procedure TForm1.btsavedataClick(Sender: TObject);
begin
 srcon := TStringlist.Create;
 srconneu := TStringlist.Create;
 snb := TStringlist.Create;
 snbneu := TStringlist.Create;


srcon.LoadFromFile('varrcon.cfg');
snb.LoadFromFile('varcommandmenu.txt');
r1:=edrcon1.Text;
r2:=edrcon2.Text;
r3:=edrcon3.Text;

ip1:=edip1.Text;
ip2:=edip2.Text;
ip3:=edip3.Text;

nb1:=ednb1.Text;
nb2:=ednb2.Text;
nb3:=ednb3.Text;

srconneu.Text := StringReplace(srcon.Text, 'xrcon_pw1', r1, [rfIgnoreCase]);
srconneu.Text := StringReplace(srconneu.Text, 'xrcon_pw2', r2, [rfIgnoreCase]);
srconneu.Text := StringReplace(srconneu.Text, 'xrcon_pw3', r3, [rfIgnoreCase]);

srconneu.Text := StringReplace(srconneu.Text, 'xip1', ip1, [rfIgnoreCase]);
srconneu.Text := StringReplace(srconneu.Text, 'xip2', ip2, [rfIgnoreCase]);
srconneu.Text := StringReplace(srconneu.Text, 'xip3', ip3, [rfIgnoreCase]);

snbneu.Text := StringReplace(snb.Text, 'xservname1', nb1, [rfReplaceAll, rfIgnoreCase]);
snbneu.Text := StringReplace(snbneu.Text, 'xservname2', nb2, [rfReplaceAll, rfIgnoreCase]);
snbneu.Text := StringReplace(snbneu.Text, 'xservname3', nb3, [rfReplaceAll, rfIgnoreCase]);

srconneu.SaveToFile('rcon.cfg');
snbneu.SaveToFile('commandmenu.txt');

 srcon.Free;
 srconneu.Free;
 snb.Free;
 snbneu.Free;
end;

end.

Im Prinzip funktioniert das ganze ja halbwegs, bis auf den Punkt, dass nur die Commandmenu.txt erstellt wird, die rcon.cfg aber ned. Anfangs war der gesamte Teil, der für die commandmenu.txt zuständig ist nicht drin und das Script hat auhc klasse geklappt, hoffe Ihr könnt mir helfen
Grüße, Bene