procedure ConnectionListCompare(Sender: TObject; Item1: TListItem; Item2: TListItem; Data: Integer; var Compare: Integer);
__fastcall ConnectionListCompare(TObject * Sender, TListItem Item1, TListItem Item2, int Data, int Compare);
This is ConnectionListCompare, a member of class TSocketForm.