Отправка HTTP-запроса Post с действием SOAP с использованием org.apache.http

Я нашел гораздо более простую модифицированную функцию сортировки для алфавита TList записей или нестандартного списка элементов.

Пример

PList = ^TContact;
    TContact = record             //Record for database of user contact records
      firstname1 : string[20];
      lastname1 : string[20];
       phonemobile : Integer;       //Fields in the database for contact info
      phonehome : Integer;
      street1 : string;
      street2 : string;

 type
    TListSortCompare = function (Item1,
                                Item2: TContact): Integer;
var
  Form1: TForm1;
  Contact : PList;         //declare record database for contacts
  arecord : TContact;
  Contacts : TList;   //List for the Array of Contacts

function CompareNames(i1, i2: TContact): Integer;
begin
   Result := CompareText(i1.lastname1, i2.lastname1) ;
end;

и функция вызова для сортировки вашего списка

Contacts.Sort(@CompareNames);