работа с TShape

[EinKRieGeR]

На форме имеются два Shape. Драг мод описан в коде. Как реализовать создание третьего Shape при наложении (окончании перетаскивания в позиции с другим шейпом) имеющихся шейпов друг на друга?

var
  Form1: TForm1;
  X0, Y0: Integer;
  drag: boolean = false;

implementation

{$R *.dfm}

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
X0 := X;
Y0 := Y;
drag := true;
end;

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if drag then
with TShape(Sender) do
begin
  Left:= Left + X - X0;
  Top:= Top + Y - Y0;
end;
end;

procedure TForm1.Shape1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
drag := false;
end;

[baster128]

var MyShape:TShape;
begin
.....
MyShape:=TShape.Create(Owner);
MyShape.Parent:=Form1
.....
end;

[baster128]

На закрытие формы - MyShape.Free