[cotseec]

Код:

procedure ShapeMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
begin
     Label1.Caption:=TShape(Sender).Name;
end;