[LIGERO]

Muy buenas a todos:
Estoy intentando crear un tunel SSH entre mi base de datos de mi web y mi equipo.
He probado la conexión con Putty y perfecto, pero cuando utilizo la librería libssh2.dll con el ejemplo que hay en el foro de Embarcadero.

https://blogs.embarcadero.com/es/con...c-through-ssh/

Sin embargo no conecto.

Los parámetros de la conexión están bien pero al intentar abrir el túnel, me da el error "The authenticity of Host 'XXX.XXX.XXX.XXX' can´t be established" al ejecutarse la conexión.

Session.Connect;

De forma que no llego ni a establecer la conexión antes de autentificarme con el usuario y el pwd.

Código Delphi [-]
procedure TMainForm.butOpenTunnelClick(Sender: TObject);
Var
  Host: string;
  UserName: string;
  Password: string;
begin

  Host := 'XXX.XXX.XXX.XXX';
  UserName := 'miusuario';
  Password := 'mipwd';

  Session := CreateSession(Host, 22);
// Session.SetKeybInteractiveCallback(KeybIntCallback);

  Session.Connect;

  if not Session.UserAuthPass(UserName, Password) then
//  if not Session.UserAuth(UserName) then

  begin
    ShowMessage('Authorization Failure');
    Exit;
  end;

  SshTunnel := CreateSshTunnel(Session);
  Thread := TThread.CreateAnonymousThread(
    procedure
    begin
      SshTunnel.ForwardLocalPort(3306, 'XXX.XXX.XXX.XXX', 22);
    end);
  Thread.FreeOnTerminate := False;
  Thread.Start;
end;

He utilizado ejemplos que hay también en github de ssh, pero sigo teniendo problemas de conexión.
Utilizo RadStudio 10.3
Alguien puede ayudarme?

Gracias.