Synapse SSH simple connection

[lordzero]

from the mailing list of official website:

program ssh;
uses
OpenSSL, // fpc extra package, Author: Lukas Gebauer
tlntsend, ssl_openssl, ssl_openssl_lib, ssl_cryptlib; // synapse units, cryptlib requires version 3.3.2 of Peter Gutmann's cryptlib.pas and cl32.dll
var
c : TTelnetSend;
begin
c := TTelnetSend.Create;
c.TargetHost := 'HOSTNAME-OR-IP';
c.UserName := 'USERNAME';
c.Password := 'PASSWORD';
if c.SSHLogin then
writeln('c.SSHLogin = true, connected')
else
writeln('c.SSHLogin = false, could not connect');
c.Logout;
c.Free;
end.

anyway thanks