Eliminar duplicados lista con mismos caracteres

[[coso]]

hola, no estoy muy seguro pero creo q esto funciona

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
        i,j : integer;
begin
        for i := 0 to Memo1.Lines.Count - 1 do
        for j := i + 1 to Memo1.Lines.Count - 1 do
           if Permuta(Memo1.Lines[i],Memo1.Lines[j]) then Memo1.Lines.Delete(i);
end;
function TForm1.Permuta(s1,s2 : string) : boolean;
var
        j : integer;
begin
        result := true;
        j := 1;
        while (j < length(s1)) and (result = true) do
        begin
                result := result and (Pos(s1[j],s2)<>0);
                stringreplace(s2,s1[j],'',[]);
                inc(j);
        end;
end;

tendrias que mirar casos donde hayan caracteres repetidos (ex, 5113, 1351, 1355...creo que si, pero no se bien bien si los consideraria igual). Al menos, la idea va por aqui