Сортировка TList

[prikolist]

Здравсвуйте програмисты! Вот по книге изучаю тему про список TList. Вопрос,подскажите пожалуйста,как отсортировать правильно, 2 структуры, и вывести одну структуру отдельно в отсортированном виде по букве, и также вывести вторую структуру отдельно в отсортированном виде по букве, и вывести отдельно соединённые 2 структуры в одно по букве в отсортированном виде.
Вот код ниже:

struct lodka{
AnsiString a,b,c,d;
unsigned int god;
} * abdylay;

struct lodka1{
AnsiString a,b,c,d;
unsigned int god;
} * abdylay1;

int i1;
void __fastcall piter()
{
TList *spisok = new TList;
abdylay = new lodka;
abdylay->a = "папа";
abdylay->b = "мама";
abdylay->c = "дядя";
abdylay->d = "студент";
abdylay->god = 1950;
spisok->Add(abdylay);

abdylay1 = new lodka1;
abdylay1->a = "Паша";
abdylay1->b = "Маша";
abdylay1->c = "Даша";
abdylay1->d = "Саша";
abdylay1->god = 1930;
spisok->Add(abdylay1);

for(int i=0; i<spisok->Count; i++)
ShowMessage(((lodka*)spisok->Items[i])->a +
'\n' + ((lodka*)spisok->Items[i])->b + '\n' +
((lodka*)spisok->Items[i])->c + '\n' +
((lodka*)spisok->Items[i])->d + '\n' +
((lodka*)spisok->Items[i])->god);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
piter();
}
//---------------------------------------------------------------------------