Schleife unterbrechen und Stringlist in Datei anhängen

[Smeivel]

Hallo ich hab ein Problem zwar kann ich die Stringlist mit SaveToFile in eine Datei speichern, doch würde ich die Stringlist Daten an lieber an eine Datei anhängen da falls ich das Programm vorzeitig schließe die bisheigen Daten schon in einer Datei vorhenden sind. Wie muss ich also die Stringlist definieren um sie mit Writeln in eine Datei zu schreiben. Außerdem würde ich die Schleife gerne unterbrechen können um einen Zwischenstand anzuschauen. Danke im Voraus Smeivel

Delphi-Quellcode:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var a,b,c,d,w,x,y,z,g,h,i,j:integer; sl: TStringList;  f : TextFile;

begin
w:=0;x:=0;y:=0;z:=0;
sl:=TStringList.Create;
AssignFile(f, 'ip.txt');
      for g:=0 to 255 do begin
      a:=w+1;
      w:=a;
         for h:=0 to 255 do begin
         b:=x+1;
         x:=b;
         if b=256 then x:=0;
            for i:=0 to 255 do begin
            c:=y+1;
            y:=c;
            if c=256 then y:=0;
               for j:=0 to 255 do begin
               d:=z+1;
               z:=d;
               if d=256 then z:=0;

               sl.add(IntToStr(a-1)+'.'+IntToStr(b-1)+'.'+IntToStr(c-1)+'.'+IntToStr(d-1));
               //sl.SaveToFile('ip.txt');
               refresh;
               Append(f);
               Writeln(f,[sl]]  //Hier möchte ich die stringlist dem txt dokument hinzufügen
               sl.clear;




               end;
            end;
         end;
      end;
CloseFile(f);
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
   // hiermit möchte ich gerne die pocedure von button 1 anhalten
   //bzw. weiterlaufen lassen
end;

end.