Delphiでループを中断してループから抜け出すにはbreak文を用います。

コード例

break文によりwhileの無限ループが中断されることが確認できます。

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;

実行結果