procedure TForm1.Button11Click(Sender: TObject); var i:integer; begin i:=0; while true do begin Memo1.Text := Memo1.Text + IntToStr(i) + ' '; if i>=10 then break; inc(i); end; end;