Factura Electronica - Afip Argentina

[hagsoft]

Sera q lo pueden subir el codigo por favor me da error base64 estoy usando delphi berlin

Código Delphi [-]
procedure TForm1.EnviaTicket(ta: widestring);
var
  WS: LoginCMS;
  s: widestring;
begin
 //s := (HTTPRIO1 as LoginCms).loginCms(memo1.Text);
  WS := GetLoginCMS;
  s := WS.loginCms(ta);
  memo1.Text :=(s); //Da error en esta linea
  memo1.Lines.SaveToFile(ruta + 'TA.XML');
end;