error al pasar una cadena de delphi7 a delphi 10.3

[tiqui_loquito]

Solucione el inconveniente con algo de investigación y cacharreo

Por ahora me ha funcionado, tengo que ver con cadenas con más caracteres.

En delphi7 define la variable como AnsiString

Código Delphi [-]
var
 vCadena: AnsiString;
begin
 vCadena := 'Esta es una cadena de prueba sel servico';

y en el servicio igual. Aunque me toco usar UTF8ToWideString, ya que al asignar la variable al label me la enviaba vacía.

Código Delphi [-]
procedure TForm2.validarCadena(pCadena: AnsiString);
begin
  Label1.Caption :=  UTF8ToWideString(pCadena);

Espero a alguien le sea de ayuda alguna vez