Eventstyring

Hej,

Jeg har en lille programstump som følgende:

Procedure Button1Click(Sender: TObject);
Begin
  While Not MyQuery.EOF Do Begin
    DoPrint;
  End;
  MyQuery.Close;
End;

Denne event udskriver indtil EOF. Hvis jeg nu gerne vil afbryde udskriften ved hjælp af en Button2 (eller en Unit med en Stopbutton) hvordan får jeg så afbrudt event\'en?

Hilsen Jisch