[Emelman]

Вроде бы всё работает, разве что напрягает, что данные записываются в конец базы данных ("Append();"). Чтобы данные записывались сразу по сортировке хотел написать следующий код:

Table1->First();
while (!Table1->Eof)
        {if (Table1->Fields->FieldByName("Author")->AsString<author2)
              {Table1->Cancel(); Table1->Next();}
         else {Table1->Insert();
               Table1->FieldByName("Author")->AsString=author1;
               Table1->Post();
               return;}
        }

Но, видимо, операция сравнения (<,>) со строками не работает. Потому что в результате добавление новой записи происходит в начало базы. Подскажите, как правильно реализовать задуманное.