Не понимаю.
Эта процедура есть в самом классе. Просто мне некуда вытащить невизуальные компоненты, и дважды кликнуть в 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;