Probleme mit Pausierung einer for Schleife

[Klaus01]

Delphi-Quellcode:

for j := 0 to listbox1.count -1 do 
   begin 
      memo1.Clear;
      while pause do
        begin
          delay(100);
        end; 
      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;

Vorausgesetzt:

pause: Boolean
und mit dem Button wird Pause auf true oder false gesetzt.

Für delay mal ein wenig im Forum suchen.
Damit erreichst Du, dass die Meldungen und Nachrichten an Dein Programm
abgearbeitet werden. Dein Programm bekommt dann auch mit, wenn der Button zum Beenden
der Pause noch einmal gedrückt wurde.

Grüße
Klaus