Назначение обработчика события

[Gypsy]

Здравствуйте!
Есть такая проблема. К проге подключаю внешний модуль, где есть класс TStServer. Событию OnUpdateBidAsk хочу назначить обработчик - выдает ошибку [Pascal Error] unit_main.pas(1063): E2009 Incompatible types: 'Parameter lists differ'.
Код:
type TSmart = class (TStServer)
procedure UpdateBidAsk(Sender: TObject; symbol: widestring; row: integer; nrows:integer; bid: double; bidsize: double; ask: double; asksize: double);
end;

imlementation
procedure TSmart.UpdateBidAsk(Sender: TObject; symbol: widestring; row: integer; nrows:integer; bid: double; bidsize: double; ask: double; asksize: double);
begin
Form2.Memo1.Lines.Add('1'); // по событию просто добавляем '1' в мемо1
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SmartCom:=TSmart.Create(Self);
SmartCom.OnUpdateBidAsk:=SmartCom.U pdateBidAsk; // ВОТ ЗДЕСЬ ВЫДАЕТ ОШИБКУ!
end;

Профи помогите, второй день не могу понять.

[Greek9000]

Попробуйте так:

// Надо объявить процедурный тип для свойства
type
  TMyBidAskUpdEvent = procedure (Sender: TObject; symbol: widestring; row, nrows:integer; bid, bidsize, ask, asksize: double); of object;

// потом внутри класса объявить свойство
type TSmart = class (TStServer)
  private
  FOnUpdateBidAsk:TMyBidAskUpdEvent;
  //...
  public
  // ...
  property OnUpdateBidAsk:TMyBidAskUpdEvent read FOnUpdateBidAsk write FOnUpdateBidAsk;
end;

[Gypsy]

Greek9000! Спасибо, выручил! Пашет!