Остановка выполнения программы в событие OnClick

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include <stdlib.h>
#include <math.h>
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool run=false;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::startstopClick(TObject *Sender)
{
 
int x,y,vx,vy;
float angle;
 
const
 int r=10;  // radiys molekyli
 int v=4;  // skorost molectli
 
 
 if (run)
{
  run=false;
  startstop->Caption="Пуск";
  exit(1);
}
 
 Form1->Canvas->Pen->Color=clRed;
 Form1->Canvas->Pen->Width=4;
 Form1->Canvas->Rectangle(2,2,504,305);
 
 startstop->Caption="СТОП";
 run=true;
 
randomize();
 
screen->Refresh();  // ochistka ecrana
 
x=random(screen->Width-r)+r; // vibor nachalnix koordinat
y=random(screen->Height-r)+r;
 
angle=random(360)*M_PI/180; // opredeliem naprevlrnie dvigenii
 
vx=ceil(v*sin(angle)); // opredeliem skorost
vy=ceil(v*cos(angle));
 
while(run)
{
 screen->Canvas->Pen->Width=5;
 screen->Canvas->Pen->Color=clBlack;
 screen->Canvas->Ellipse(x-r,y-r,x+r,y+r);  // risyem molecyly
 
 if (run==false)
  break;
 
 x=x+vx;// sdvigaem molekyly
 y=y+vy;
 
 if(x>screen->Width-r) //vihla li za gran
  {
   x=screen->Width-r;  // pravai gran
   vx=-vx;
  }
 if(x<r)
  {
   x=r;                 // levai gran
   vx=-vx;
  }
  if (y>screen->Height-r)
  {
   y=screen->Height-r;   // nignii  gran
   vy=-vy;
  }
  if(y<r)
  {
   y=r;    // verhnii gran
   vy=-vy;
  }
 
 screen->Canvas->Pen->Color=clBlue;
 screen->Canvas->Ellipse(x-r,y-r,x+r,y+r);  // risyem molecyly
 Sleep(10);
 Application->ProcessMessages();
 }
 
}
 
//---------------------------------------------------------------------------

return;