Рисование фигуры по клику мыши

var p:array of HRGN;

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,
  Types;//добавить модуль для использования функции IntersectRect
 
type
  TForm1 = class(TForm)
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  p:array of Trect; //массив прямоугольников
  n:integer;//его размер
implementation
 
{$R *.dfm}
//зададим некоторые начальные параметры
procedure TForm1.FormCreate(Sender: TObject);
begin
Canvas.Brush.Style:=bsClear;
randomize;
n:=0;
end;
//клик мышью
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var a,b,i:integer;
    c:TRect;
begin
repeat //зададим половину ширины прямоугольника
a:=20+random(50);
until(x-a>0)and(x+a<ClientWidth);
repeat //зададим половину высоты прямоугольника
b:=20+random(50);
until(y-b>0)and(y+b<ClientHeight);
//так чтобы прямоугольник поместился на клиентской части формы
inc(n);
setlength(p,n);
Canvas.Rectangle(x-a,y-b,x+a,y+b);//рисуем
//создаем значение типа TRect
p[n-1].Left:=x-a;
p[n-1].Top:=y-b;
p[n-1].Right:=x+a;
p[n-1].Bottom:=y+b;
if n>1 then//если не первый клик, проверяем на пересечение
 begin
  a:=0;
  for i:=0 to n-2 do
  if IntersectRect(c,p[i],p[n-1]) then a:=1;//фиксируем если с каким-то
                                            //прямоугольником пересекается
  if a=1 then ShowMessage('Пересекается');
 end;
end;