Estrutura Repeat

procedure btn click

var
x : integer;

begin

x := 0;

  Repeat  //faça isso
    showmessage('contador = ' + IntToStr (x));
    inc (x); //incrementa x
  Until (x = 3);  // até que x =3
end;


(dev iniciante - 19 primeira)