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