TObjectList Multisort

[Klaus01]

Zitat von Stevie:

Delphi-Quellcode:

function CompareItem(Item1, Item2: Pointer): Integer;
begin
  Result := AnsiCompareText(TMyObj(Item1).Name, TMyObj(Item2).Name);
  if Result = 0 then
    Result := CompareDateTime(TMyObj(Item2).Zeit, TMyObj(Item1).Zeit);
end;

...

list.Sort(CompareItem);

fehlt da nicht ein "@"
list.Sort(@CompareItem) oder ist die Hilfe nicht das was sie sein soll?