[@Rafa3L]

Код:

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

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

4250