Código Delphi
[-]
while Flag do begin
Application.ProcessMessages;
Inc(n);
Label2.Caption:=IntToStr(n);
if Flag2 then 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;