代码设置TSQLCONNECTION参数

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;