[ps1panda]

procedure TForm1.Button1Click(Sender: TObject);
begin
canvas.Pen.Style:=pssolid;
canvas.MoveTo(100,400);
canvas.LineTo(400,400);
canvas.Pen.Style:=pssolid;
canvas.MoveTo(100,400);
canvas.LineTo(100,100);

for i:=100 to 250 do
for j:=110 to 390 do
begin
x:=i+random(10);
y:=j+random(10);
canvas.Pen.style:=pssolid;
canvas.Pen.Color:=clred;
canvas.Rectangle(x,y,x+10,y+10);
end;
for i1:=250 to 400 do
for j1:=110 to 390 do
begin
x1:=i1+random(10);
y1:=j1+random(10);
canvas.Pen.style:=pssolid;
canvas.Pen.Color:=clblue;
canvas.Rectangle(x1,y1,x1+10,y1+10);
end;

вопрос такой как мне уменьшить шаг рандома чтоб выводило не 1000 квадратов а парочку