Estrutura while

Procedure btn click

var
x : integer;

begin
  x:=0;
  while x < 3 do
  begin
    ShowMessage ('Contador = ' +IntToStr(x));
    Inc(x);
  end;
end;


(dev iniciante - 19 4:22)