[Uniq!]

Нужна помощь в работе с Event'ами. Создаю экземпляр класса SSHClient'а. (Компоненты SecureBridge)
У него есть событие OnServerKeyValidate, когда сервер передаёт ключ авторизации. Мне нужно его принять.
Для этого надо в этом событии параметру Accept присвоить значение True. Как это сделать?

Код:

SSHClient := TscSSHClient.Create(nil);
	try
        SSHClient.HostName := Settings.ReadString('HostName');
           SSHClient.Port := Settings.ReadInteger('Port');
           SSHClient.User := Settings.ReadString('User');
           SSHClient.Password := Settings.ReadString('Password');
           SSHClient.KeyStorage := KeyStorage;
           SSHClient.OnServerKeyValidate .. // принимает Sender : TObject; NewKey: TscKey; Accept : boolean
          end;
        finally
          SSHClient.Free;
        end;

[@Rafa3L]

Код:

...
type
  TForm1 = class(TForm)
    procedure MyServerKeyValidate(...);
...

procedure TForm1.MyServerKeyValidate(...);
begin
Accept:= true;
end;
...
...
SSHClient.OnServerKeyValidate:= MyServerKeyValidate;
...

4250

[Uniq!]

Сообщение от @Rafa3L

Код:

...
type
  TForm1 = class(TForm)
    procedure MyServerKeyValidate(...);
...

procedure TForm1.MyServerKeyValidate(...);
begin
Accept:= true;
end;
...
...
SSHClient.OnServerKeyValidate:= MyServerKeyValidate;
...

4250

Консольное приложение не имеет экземпляра TForm. Получается мне обязательно нужно создать какой-то класс? Без него никак не обойтись?

и что такое 4250?)

[Bargest]

Скорее не какой-то, а класс-наследник TscSSHClient.

[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;

[Bargest]

Эта процедура есть в самом классе. Просто мне некуда вытащить невизуальные компоненты, и дважды кликнуть в Event'ах на нужном.

Так когда ты "дважды кликаешь в Event'ах на нужном", делфа в наследнике TForm, прописанном в Unit'е, создает новый метод, т.е. делает то же самое, только автоматически.
Я только не понимаю, как в списке параметров

Код:

(Sender: TObject; NewKey: TscKey; Accept : boolean)

изменение параметра Accept может повлиять на работу SSH - ведь параметр-то значение, а не ссылка, а значит его изменение не даст в вызвавшей процедуре никакого эффекта.

[Uniq!]

Код:

(Sender: TObject; NewKey: TscKey; var Accept : boolean)

Не досмотрел. Там var