Ayuda con Webservice

[gersojn]

Hola,
Gracias por la ayuda.
Realice la siguiente modificacion sobre el procedimiento:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
  var
    autenticacion:user_auth;
    usuario:name_value_list;
    ws:sugarsoapPortType;
begin
    ws := GetsugarsoapPortType;
    autenticacion.user_name:='admin';
    autenticacion.password:='clave';
    ws.login(autenticacion,'',usuario);
end;

Al momento de invocar la función, obtengo el siguiente error: Conversion from class TForm1 to SOAP is not supported - SOAP classses must derive from TRemotable

No consigo comprender la forma correcta de crear una instancia , para utilizar la función de Login.
Toda ayuda, es bienvenida.
Saludos.