title: Cant select procedure as option for event OnMouseDown
body: <p>I have a shape, when i click OnMouseDown in Object inspecter / Events tab. I would like for it to do the procedure "SelectMessage"  But its not showing up as an option. Also if i manually type in "SelectMessage"  I get error Property and method Selectmessage are not compatible. </p>
  
  <p>Selectmessage</p>
  
  <pre><code>procedure TFZone1Mod7.Selectmessage(sender: TObject);
  var
    ShapeOrderNo: Integer;
  begin
    if TryStrToInt(copy(TShape(Sender).Name,6,MaxInt),ShapeOrderNo) then
      begin
        LookUpMessage(ShapeOrderNo);
      end;
  end;
  </code></pre>
  
  <p>If i do </p>
  
  <pre><code>procedure TFZone1Mod7.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  begin
     selectmessage(sender);
  end;
  </code></pre>
  
  <p>then it will work. but easier to select from events if i can.
  thanks</p>