[Uniq!]

Не понимаю.
Эта процедура есть в самом классе. Просто мне некуда вытащить невизуальные компоненты, и дважды кликнуть в Event'ах на нужном.
В конечном Итоге я делаю нечто вроде такого?

Код:

type
  TMyscSSHClient= class(TscSSHClient)
... 
public
   procedure MyServerKeyValidate(Sender: TObject; NewKey: TscKey; Accept : boolean);
end;

procedure TMyscSSHClient.MyServerKeyValidate(Sender: TObject; NewKey: TscKey; Accept : boolean);
begin
   Accept := true;
end;