delphi - Get name of object clicked -

i have bunch of tcubes made @ runtime inside viewport3d. know if 1 clicked on. , if return name of tcube.

small example of talking about.

procedure blockclicked; begin   //get name of block   //checkmode ( add , delete, other)   //get name of block x, y, , z   //do other stuff end; 

procedure tform1.cubeclick(sender: tobject); var   cube: tcube; begin   // senders points cube clicked   cube := sender tcube;  end;