В хелпе Delphi7 ошибка?

[Zroman]

Вот какой пример использования TList.Sort я нашёл в хелпе к Delphi7:

function CompareNames(Item1, Item2: Pointer): Integer;
begin
Result := CompareText((Item1 as TComponent).Name, (Item2 as TComponent).Name);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
List1.Sort(@CompareText);
end;

Кто подскажет? Может, вместо "List1.Sort(@CompareText);" Нужно писать " List1.Sort(@CompareNames);"?
Спасибо.
P.S. Попробовать самому по тех. причинам не получается.

[Игорь Акопян]

Думаю, что ты прав