Asigning a Menu's OnClick event to a TSpeedButton found using FindComponent

Hi everyone,

I need to change the OnClick event of a TSpeedButton to that of a menu
item.  But it could be any of a number of menu items so I am using
FindComponent to determine which one.

The following code works ok if I subsitute the tag property.

procedure TMain.GetCustomTools(Sender: TObject);
var
        TheComponent:TComponent;
begin
         TheComponent := FindComponent('iEntry');
         TSpeedButton.OnClick:= (TheComponent.OnClick);
end;

Please could someone point me in that direction.

Thanks

Paul Ramshaw