Удалить дубликаты строк из файла

for( int i( memo->Lines->Count - 1 ), dup_index; i >= 0; --i )
{   
    dup_index = memo->Lines->IndexOf( memo->Lines->Strings[i] );
    if( dup_index != i )
    {
        memo->Lines->Delete( i );
    }
}

std::auto_ptr<TStringList> line1( new TStringList( ) ), line2( new TStringList( ) );
line1->Delimiter = ',';
lene2->Delimiter = ',';
 
for( int i( memo->Lines->Count - 1 ), k; i > 0; --i )
{   
    line1->DelimitedText = memo->Lines->Strings[i];
    line1->Delete( 0 );
    
    for( k = 0; k < i; ++k )
    {
        line2->DelimitedText = memo->Lines->Strings[k];
        line2->Delete( 0 );
        if( line1->Text == line2->Text )
        {
            memo->Lines->Delete( i );
            break;
        }
    }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Clear();
Memo2->Clear();
Memo1->Lines->LoadFromFile("F:\\12.txt");
Memo2->Text = Memo1->Text;
int k = 2,i;
i = Memo2->Perform(LB_FINDSTRING,k,Memo2->Lines->IndexOf(Memo2->Lines->Strings[k]));
do
{
 Memo2->Lines->Delete(i);
 i = Memo2->Perform(LB_FINDSTRING,k,Memo2->Lines->IndexOf(Memo2->Lines->Strings[k]));
}
while(i==k);
}

namespace My_StringList
{
    class TStringList : public System::Classes::TStringList
    {
    private:
        // это просто для удобства, можно и прямо в CompareStrings убрать все до первой запятой
        String RemoveID(const String s)
        {
            int p = s.Pos(",");
            return s.SubString(p + 1, s.Length() - p);
        }
 
    protected:
        virtual int __fastcall CompareStrings(const System::UnicodeString S1,
            const System::UnicodeString S2)
        {
            return AnsiCompareText(RemoveID(S1), RemoveID(S2));
        }
    };
 
};
 
void __fastcall TForm1::Button39Click(TObject *Sender)
{
    std::auto_ptr<My_StringList::TStringList>L (new My_StringList::TStringList());
 
    for (int i = 0; i < Memo1->Lines->Count; ++i)
    {
        String s = Memo1->Lines->Strings[i];
        if (L->IndexOf(s) == -1) L->Add(s);
    }
    Memo2->Lines->AddStrings(L.get());
}