[Neftali [Germán.Estévez]]

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

Creo que son equivalentes.

Código Delphi [-]
  while Flag and (not Flag2) do begin
    Application.ProcessMessages;
    Inc(n);
    Label2.Caption:=IntToStr(n);
  end;