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
WS := GetLoginCMS;
s := WS.loginCms(ta);
memo1.Text :=(s); memo1.Lines.SaveToFile(ruta + 'TA.XML');
end;