Me de uma mãozinha, digo procedure(A, B: TstringList)

ola, eu queria uma function/procedure que recebesse duas strings lists, e removesse os items iguals, por exemplo:

LISTA1 | LISTA2

000000 | 000000

111111 |

222222 | 222222

Após utilizar a função uma listar tem que ter somente o 111111, porque ele não tem par. eu ate fiz uma, mais não deu certo :/

Por favor façam uma para mim

Da uma olhada na minha:

//--------------------------------------------------------------------------- procedure rRemoveIdem(var pL1, pL2: TStringList); var I: Integer; begin for I := 0 to pL2.Count - 1 do begin if (pL1.Strings[0] = pL2.Strings[I]) then begin pL1.Delete(0); end; end; end;