repeat-until schleife

[Grubi90]

ich hoff mir kann jemand helfen ich muss für die schule ein Vortrag über Schleifen mit Austrittsbedingung machen, hab aber ehrlich gesagt nicht viel Plan davon. dazu gehört ein Struktogramm und ein grafisches programm. ich hab zwar angefangen aber weiß nicht wie ich die Grafik verwirklichen soll???

Delphi-Quellcode:

var
Form1: TForm1;

implementation

{$R *.dfm}
var
i:Integer;
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=1;
repeat
......{Hier weiß ich nicht wie ich das formulieren soll}

i:=I+1;

until i>5;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;

end.

bitte helft mir!!!!!!!

[edit=Luckie]Delphi-Tags gesetzt. Beim nächsten Mal bitte selber setzen. Mfg, Luckie[/edit]