function ConnRemoteSvr(cn:TSQLConnection;const hostname,UserName,password:string; const port:Integer):Boolean;

begin

  try

  cn.Close;

  cn.DriverName := 'DataSnap';

  cn.LoginPrompt :=False;

  Cn.ConnectionName := 'DataSnapCONNECTION';

  cn.Params.Clear;

  cn.Params.Add('DriverName=DataSnap');

  Cn.Params.Add('HostName='+HostName);

  Cn.Params.Add('Port='+inttostr(port));

  Cn.Params.Add('User_Name='+UserName);

  Cn.Params.Add('Password='+PassWord);

  cn.Open;

  Result :=True;

  except

    Result :=False;

  end;