Ayuda con Webservice

[gersojn]

Hola AgustinOrtu,
//al momento de enviar el unit recibo este mensaje en el foro
El texto que has ingresado es muy largo (53228 caracteres). Por favor acórtalo a 30000 caracteres de largo.
Lo adjuntare en dos mensajes.
Gracias, ahora agrego el código.

Hace un momento logre que compile sin errores, pero al generar la acción en el boton, la aplicación genera un error de "Access Violation at Address" . No se como recuperar la información.

Unit principal (VCL)

Código Delphi [-]
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, DBAccess, Uni, UniProvider,
  SQLServerUniProvider, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids, MemDS,Soap;

type
  TForm1 = class(TForm)
    Button2: TButton;
    Memo1: TMemo;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ws:sugarsoapPortType;

implementation


{$R *.dfm}



procedure TForm1.Button2Click(Sender: TObject);
  var
    autenticacion:user_auth;
    usuario:name_value_list;
    resultado:entry_value;
begin
    resultado := ws.login(autenticacion,'',usuario);
end;

end.