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.

[[AgustinOrtu]]

La verdad es que nunca use SOAP. Yo primero leería la documentación

Luego una guía de un hola mundo está bien para no ir tan a tientas, por ejemplo, esta. En la primer parte crea el servidor también en Delphi, eso te lo podes saltear e ir directo a la parte del cliente

[iuqrul]

El importador genera una función que devuelve la interfaz a usar, por ejemplo en un importador tengo:

Código Delphi [-]
preventaPortType = interface(IInvokable)
  ['{3004DABE-FF4B-4C0C-BA43-953418C01030}']
    function  download(const xml: string): string; stdcall;
    function  upload(const xml: string): string; stdcall;
end;

function GetpreventaPortType(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): preventaPortType;

Yo llamo a GetpreventaPortType, y guardo la interfaz del tipo preventaPortType (este es el nombre de mi caso) en una variable, y luego la uso para acceder a los dos métodos download y upload de dicha interfaz, cuando acabas la igualas a nil y se libera.

[gersojn]

Hola, gracias por la ayuda.
Ya tengo un mes y esto no me funciona para nada.
He estado practicando algo sobre WS en Delphi, tanto creando clientes y servidores y todo va perfecto.
Pero, en cuanto a el ws antes mencionado siento muy complejo abordarlo desde Delphi.
Continué el desarrollo en Php.
Saludos.