Asignar a tbitbtn evento en tiempo de ejecucion

[richy08]

ok ya lo probe y si funciona parcialmente, digo parcialmente por que al presionar el boton me muestra ya los sub menus pero no entiendo por que desaparecen los botones de linea al ser presionados el evento que mando llamar en el onclick es este

Código Delphi [-]
procedure TFrm_Main.DoOnClick(Sender: TObject);
var
i, seleccion : integer;
botonC : tbitbtn;
left, top: integer;
begin
  if Sender is TBitBtn then                                                           
  begin
    with TBitBtn(Sender) do
    begin
       Left:=15;
       top:=16;
       Qry_Categoria.Close;
       Qry_Categoria.ParamByName('idlinea').Value:=tag;
       Qry_Categoria.Open;
       i:=0;
       Seleccion:=0;
       Seleccion:=Qry_Categoria.RecordCount;

       While ido
       begin
          botonC := TBitBtn.Create(nil);
          botonC.Name:='btbc'+inttostr(Qry_Line.fieldbyname('idlinea').Value);
          botonC.Hint:=Qry_Categoria.fieldbyname('descripcion').Value;
          botonC.Left:= left;
          botonC.Top:=top;
          botonC.Width:=81;
          botonC.Height:=57;
          botonC.Parent:=Categoria;
      //    boton.OnClick:=;

          if FileExists('C:\Proyectos Delphi\Zibarita TouchScreen\Image\'+inttostr(Qry_Categoria.fieldbyname('idcat').Value)+'.bmp') then
          begin
            botonC.Glyph.LoadFromFile('C:\Proyectos Delphi\Zibarita TouchScreen\Image\'+inttostr(Qry_Categoria.fieldbyname('idcat').Value)+'.bmp');
            botonC.Caption:='';
          end
          else
            botonC.Caption:=Qry_Categoria.fieldbyname('idcat').Value;

         Qry_Categoria.next;
         top:=top+62;
         i:=i+1;
       end;
    end;
  end;
end;

alguna idea ??, mil gracias por su tiempo

corrijo no desaparecen se cambian de posicion :S