repeat-until schleife

[Grubi90]

naja mir ist glaub ich schon klar wie das malen funktionieren soll.
als code hab ich

var
i:integer;

procedure TForm1.Button2Click(Sender: TObject);
begin
i:=1;
repeat
with canvas.Rectangle(0,0,i,i);
until i<5;
end;