type
  TForm1 = class(TForm)
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
     stop:boolean;
  public
    { Public declarations }
  end;

........

procedure TForm1.Button1Click(Sender: TObject);
var .....
begin
stop:=false;
For i:=1 to 99999999 do begin
.......//твой код который выполняется
if stop=true then break;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
stop:=true;
end;