Delphi + Museklik i Cirkel // Rektangel

HEJ

I Form.Image.Canvas opretter jeg en del figurer ;

With  Form.Image.Canvas DO
    BEGIN
          Ellipse(XPos -Radius ..... YPos -Radius);
    ...
  ....
          Lineto (P1,X, P1Y);

  osv, osv osv ,,

Disse figurer placeres tilfældigt (prgm-kontrol) og i alle tænkelige vinkler i forhold  til nedre venstre hjørne.

Jeg har brug for at kunne skelne mellem disse vha. MUSEKLIK (left Button, Right Button  eller MIDDLE Button).

Har ikke den store lyst til at udvikle hele det matematiske grundlag for en rutine, som kan det, så er der et eller andet sted en venlig sjæl som har tråd disse stier før mig ... ? (og som vil dele kode med mig ) ?

Kristian