Programm zur Bestimmung von PI - Schleife auf Knopfdruck abbrechen, aber wie?

[mabstudent]

...dann bekomme ich den fehler:

'END' erwartet aber 'ELSE' gefunden

Delphi-Quellcode:

begin
  abbr:=false;
  VKhits:=0;
  NVKhits:=0;
  WHILE NOT abbr DO
  begin
  Application.ProcessMessages;
  x:=random(301);
  y:=random(301);
  IF (sqrt((x*x)+(y*y))<=300)
  THEN image1.canvas.pixels[x,y]:=clblue;  //Anweisung 1a
       VKhits:=VKhits+1                    //weitere Anweisung
  ELSE image1.Canvas.Pixels[x,y]:=clred;   //Anweisung 1b
       NVKhits:=NVKhits+1;                 //weitere Anweisung 

  end;
end;