[vtdeleon]

Saludos

Creo que un Break puede solucionar eso.

Hice una prueba

Código Delphi [-]
var
  Flag:Boolean;
  n:integer;
begin
  n:=0;
  Flag:=True;
  Flag2:=False;//Variable Global
  while Flag do begin
    Application.ProcessMessages;
    Inc(n);
    Label2.Caption:=IntToStr(n);
    if Flag2 then//Se de asigna True en otra rutina
      break;
  end;

end;