random расположение панелей

[Aндрей]

Помогите пожалуйста с расположением панелей 1,2,3,4. Надо чтобы они при нажатии на кнопку старт поменялись в произвольном порядке местами.

[Alex Cones]

Берем 4 рендома:

Randomize;
First:=Random(4)+1;
While Second=First do Second:=Random(4)-1;
While (Third=Second) Or (Third=First) Third:=Random(4)+1;
While (Four=Third) Or (Four=Second) Or (Four=First) do Four:=Random(4)+1;

И после этого присваиваешь ккординате, в зависимости от значения:
(На примере First)

With Panel1 do
Begin
Case First of
1: Begin
     X:=100;
     Y:=200;
    End;
2: Begin
     X:=200;
     Y:=300;
    End;
3: Begin
     X:=400;
     Y:=500;
    End;
4: Begin
     X:=600;
     Y:=700;
    End;
End;
Left:=X;
Top:=Y;
End;

[Aндрей]

Еще, один вопрос. Надо, чтобы при нажатии на кнопку старт курсор мыши устанавливался в центре фигуры Shape: stCircle.
Пробовал так, но почему-то он помещает курсор сбоку экрана, а не в центре Shape..

SetCursorPos(Form1.shape1.left+300, Form1.shape1.top+300);

[SuperVisor]

Координаты - абсолютные, учитывайте еще и положение формы.

[Alex Cones]

SetCursorPos(Form1.shape1.left+300, Form1.shape1.top+300);

SetCursorPos(Form1.Left+Form1.Shape.Left+300, Form1.Top+Form1.Shape.Top+300);