[angvelem]

Можно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Count
begin
  ...
  Count := 0;
  for i:=100 to 250 do
    for j:=110 to 390 do
    begin
      if Count = 2 then  // Сколько раз выводим
        Break;  // прерываем цикл
      x:=i+random(10);
      y:=j+random(10);
  ...
      inc(Count);
    end;
  ...