error al instalar el componente
 

Hola compañeros, resulta que tuve un problema en el equipo y he tenido que instalar todo nuevamente, pero al instalar mis componentes, me esta dand un error inesperado en un componente que funcionaba perfectamente el error en su fase de instalación es


Y el código donde da el error es

Código Delphi [-]
procedure TSpeedButtonBC.Click;
//------------------------------------------------------------------------------
//***************************************************************[ Click ]******
// Al Pulsar en  SetButtonStyle
//------------------------------------------------------------------------------
begin
   if FButtonRepeat then doRepeat;
   inherited Click;
end;

He seguido el código y no veo nada mal, así que si me podéis echar una mano os lo agredecería, pongo otras partes del código relacionadas

Código Delphi [-]

 TSpeedButtonBC = class(TSpeedButton)
    private
        FAnchoBorde   : Integer;
        FBordeSpace   : Integer;
        FBordeColor   : TColor;
        FColor        : TColor;
        FStyleBorde   : TStyleBorde;
        FButtonStyle  : TButtonStyle;
        FStarInterval : Integer;
        FTimeInterval : integer;
        FButtonRepeat : Boolean;
        FOnRepeat: TNotifyEvent;
        procedure SetButtonRepeat(Value:Boolean);
        procedure SetStarInterval(Value:Integer);
        procedure SetTimeInterval(Value:Integer);
        function GetRepeatInterval: integer;
        function GetStartInterval: integer;
        procedure AutoInitialize;
        function GetBordeSpace : Integer;
        procedure SetBordeSpace(Value : Integer);
        function GetStyleBorde:TStyleBorde;
        procedure SetStyleBorde(value:TStyleBorde);
        function GetButtonStyle:TButtonStyle;
        procedure SetButtonStyle(Value:TButtonStyle);
        procedure WMSize(var Message: TWMSize); message WM_SIZE;
    protected
        procedure Click; override;
        procedure Loaded; override;
        procedure Paint; override;
        procedure doRepeat(Sender: TObject);
        procedure doStart(Sender: TObject);
    public
        tRepeat: TTimer;
        tStart:  TTimer;
        constructor Create(AOwner: TComponent); override;
        destructor Destroy; override;
        procedure MouseDown(Button: TMouseButton; Shift: TShiftState;X, Y: Integer); override;
        procedure MouseUp(Button: TMouseButton; Shift: TShiftState;X, Y: Integer); override;
    published
        property OnClick;
        property OnDblClick;
        property OnDragDrop;
        property OnMouseDown;
        property OnMouseMove;
        property OnMouseUp;
        property StyleBorder:TStyleBorde      read GetStyleBorde      write SetStyleBorde     default sbNone;
        property ButtonStyle:TButtonStyle     read GetButtonStyle     write SetButtonStyle    default SbtImagen;
        property AnchoBorder : Integer        read FAnchoBorde        write FAnchoBorde       default 3;
        property BoderSpace : Integer         read GetBordeSpace      write SetBordeSpace     default 2;
        property BorderColor : TColor         read FBordeColor        write FBordeColor       default clbtnface;
        property Color : TColor               read FColor             write FColor            default clbtnface;
        property ButtonRepeat:Boolean         read FButtonRepeat      write SetButtonRepeat;
        property StarInterval:Integer         read FStarInterval      write SetStarInterval;
        property TimeInterval:integer        read FTimeInterval       write SetTimeInterval;
  end;




.....


procedure TSpeedButtonBC.doRepeat(Sender: TObject);
//------------------------------------------------------------------------------
//****************************************************************[ Repeat ]****
// Repite la pulsación del click
//------------------------------------------------------------------------------
begin
   if FButtonRepeat then if assigned(OnClick) then OnClick(Self);
end;

Me falta por instalar multitud de componentes, pero es que no quiero instalarlos, ya que luego se vuelve lento, entre los que no he instalado y tenia antes están las Jedi, y un largo etc, no se si es que me hace falta uno de estos, para que lo reconozca, pero instalarlo todo seria una locura

P.D. me refiero a mi delphi 2010

Solucionado sólo tuve que neutralizar la linea del error y funciona bien, pero aun no se por que

Código Delphi [-]
//  if FButtonRepeat then doRepeat;

Hola José Luis.

Te falta enviar el parámetro definido en la declaración de la función doRepeat.

Código Delphi [-]
procedure TSpeedButtonBC.Click;
begin
  if FButtonRepeat then doRepeat(Self);
  inherited Click;
end;

Saludos :)

Gracias por la aclaración Ecfisa