Как программно остановить выполнение программы.

[*Хalyava*]

прошу помощи, есть код, в нем 2 потока. свой - родной и тот, который я создал.

procedure TMyThread.Execute;
var
i:Integer;
begin
for i:= 0 to 10000 do
form1.memo1.Lines.add('I = '+inttostr(i));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MyThread:=TMyThread.Create(False);
end;


end.

как видно, программа выводим в мемо цифры от 1 до 10 000 !
подскажите, как можно остановить выполнение программы, щелкнув на button (желательно код если не затруднит) ))


-----------------------------------------------------

еще проблемка.

идет выполнение программы, цифры так сказать выводятся, закрываю программу (нажимая на крестик), выскакивает ошибка (1.отказано в доступе; 2. недопустимый дескриптор окна, но тем не менее программма закрывается) хотелось бы, чтобы ошибок не было! подскажите в чем проблема

[MasterJedi]

остановить выполнение программы, щелкнув на button (желательно код если не затруднит) ))
Exit? :sceptic:

procedure TForm1.Button1Click(Sender: TObject);
begin
Exit;
end;

[lolwut98]

halt