Окружность или Circle.

[NIQK]

Вот рисую 10 окружностей на PaintBox в случайном порядке.
Вот код:
var
x,y, i : integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
for i := 1 to 10 do
begin
y := Random (PaintBox1.Height);
x := Random (PaintBox1.Width);
PaintBox1.Canvas.Ellipse(x,x,y,y);
end;
end;

Delphi рисует окружности из верхнего левого угла PaintBox в нижний правый.
Но это же не на всей области...

[MadReason]

не понял чего ты хочешь..

procedure TCanvas.Ellipse(X1, Y1, X2, Y2: Integer);

x1, y1 левый верхний угол прямоугольника
x2, y2 нижний правый

и рисуется вписанная окружность

[NIQK]

Сообщение от MadReason

не понял чего ты хочешь..

procedure TCanvas.Ellipse(X1, Y1, X2, Y2: Integer);

x1, y1 левый верхний угол прямоугольника
x2, y2 нижний правый

и рисуется вписанная окружность

да это я знаю и использую. но окружности которые рисуются рисуются по диагонали... тоесть их центры лежат на одной прямой диагонали!!! а мне надо чтоб по разному.