Probleme mit Pausierung einer for Schleife

[stonimahoni]

hi leute...


hab da mal ein problem.
habe mich hier schon durchgesucht in der praxis aber nur bedingt was gefunden.
orientiert habe ich mich hieran : schleife unterbrechen und fortsetzen

allerdings will das bei mir net wirklich und ich hol mir an dem teil gleich das leben :/

wollt was zum testen basteln :
und zwar soll der code mir von den servern die ich so habe meine dbs lokal saugen - soweit so gut...
nun wollte ich mittels button das ganze mal pausieren können - sprich : "buttonclick -> pause" - button nochmalclick -> weiter gehts

doch der frisst die pause und weiter geschichte net so ganz einwandfrei
das is mein hauptstück, und hier würd ich die pausensache gern einbauen - kann mir jmd helfen ?

Delphi-Quellcode:

   for j := 0 to listbox1.count -1 do
   begin
      memo1.Clear;
      dateiquelle := listbox1.Items.Strings[j] + 'reparatur.mdb';
      memo1.Lines.Add(listbox1.Items.Strings[j]);
      if fileexists(dateiquelle) then
      begin
         copyfile(PChar(dateiquelle), PChar(dir + '\' +'reparatur_' + inttostr(j+1) + '.mdb'),false);
      end
      else
      begin
         listbox2.Items.Add(dateiquelle);
      end;
   end;

vielen dank schonmal

mfg

carsten