Eine Procedure durch Stop Button unterbrechen

[klaus9]

Hi,

das ist super, habe ich auch soweit integriert in mein Project.

Nun habe ich es mal ausprobiert mit folgendem Code

Delphi-Quellcode:

procedure TForm1.DoWork;
var
i:Integer;
begin
  for i:=1 to 1000 do
  begin
    if not IsRunning then Exit;
//BEGIN
Action1.execute;
//ENDE

  end;
end;

Der Code meiner Test ausführung beinhaltet

Delphi-Quellcode:

var    ovElements: OleVariant;    i: Integer;
begin
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
    for i := 0 to (ovElements.Length - 1) do
         if (ovElements.item(i).tagName = 'INPUT') and
               (ovElements.item(i).type = 'submit') and
                 (ovElements.item(i).Value = 'Filter löschen') then
                   ovElements.item(i).Click;
delay(900);
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
    for i := 0 to (ovElements.Length - 1) do
         if (ovElements.item(i).tagName = 'INPUT') and
               (ovElements.item(i).type = 'submit') and
                 (ovElements.item(i).Value = 'Filter löschen') then
                   ovElements.item(i).Click;
delay(900);
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
    for i := 0 to (ovElements.Length - 1) do
         if (ovElements.item(i).tagName = 'INPUT') and
               (ovElements.item(i).type = 'submit') and
                 (ovElements.item(i).Value = 'Filter löschen') then
                   ovElements.item(i).Click;

end;

Nun versuche ich diese Routine zu unterbrechen, nur leider klappt es nicht.. Was mache ich falsch ?

Gruß und nochmal danke für den Code..