[__cadetill]

hola

Pues en Delphi has de hacerlo más o menos de la siguiente manera:

Código Delphi [-]
var
  Salir: boolean; // variable global al formulario

implementation

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  Salir := false;
  for i := 0 to 100000 do
  begin
    if Salir then Break;
    Application.ProcessMessages;
  end;
end;

procedure TForm1.SalirBucleClick(Sender: TObject);
begin
  Salir := true;
end;

Mas o menos

Espero te sirva