Delphi repeat Until 运用

procedure TForm3.SpeedButton1Click(Sender: TObject);
Var
  I:integer;
begin
  I:=0;
  repeat
    I:=I+1;
  until I=10;
  ShowMessage(INTTOSTR(i));
end;

很少用到 repeat until，但有时候，她真的很实用