Retornar diferença de duas strings?

Olá pessoal, preciso comparar duas strings e retornar o resultado em outra

String A
PORTA MALAS (S),
AIR BAG (4),
AR CONDICIONADO (S),
BANCO DE COURO (N),
DVD (N),
CADEIRINHA até 5 anos (S),
BAGAGEIRO teto (N)

String B
PORTA MALAS
AIR BAG
AR CONDICIONADO
BANCO DE COURO

Preciso que leiam as duas string, compare a diferença e retorne exatamente desta forma aqui
item_novo DVD (S),
item_novo CADEIRINHA até 5 anos (S),
item_novo BAGAGEIRO teto (N)

Tenho até uma função para verificar a diferença
function CompareStr(const cEntrada,cCompare:String):String;
var
 lEntrada,lCompare,lSaida:TStrings;
 i:Byte;
begin
 lEntrada:=TStringList.create;
 try
   lCompare:=TStringList.create;
   try
     lSaida:=TStringList.create;
     try
       lEntrada.CommaText:= CapturarUpper(cEntrada);
       lCompare.CommaText:= cCompare;
       for I := 0 to lEntrada.Count - 1 do
       begin
         if lCompare.IndexOf(lEntrada.Strings[i]) < 0 then
            //lEntrada.CommaText := cEntrada;
            lSaida.Add('Item_Novo'+' '+lEntrada.Strings[i]);
       end;
       result:=lSaida.Text;
     finally
       lEntrada.Free;
     end;
   finally
     lCompare.Free;
   end;
 finally
   lSaida.Free;
 end;
end;

e outra para capturar apenas as letras maiusculas para conseguir comparar entre as duas strings

function CapturarUpper(const AText: String): String;
var
 i, vLength: Integer;
 vChar: Char;
begin
 Result := ' '; //aqui tem que ficar com este espaço para não ocorrer erro
 vLength := Length(AText);
 for i := 1 to vLength do
 begin
   vChar := AText[i];
 
   if (vChar in ['a'..'z', 'A'..'Z']) and (vChar = UpCase(vChar)) then
   begin
     Result := Result + vChar;
   end
   else
   begin
     if (Result[Length(Result)] <> ' ') then //aqui eu defino se vai haver espaço ou não entre os campos ' '
       Result :=  Result + ' '; //aqui eu defino se vai haver espaço ou não entre os campos
   end;
 end;
 
 Result := Trim(Result);
end;[

Mais não me traz corretamente o retono da diferença entre as duas strings, e precisa ser igual a forma acima mostrada

Atenciosamente
Adriano.