[Kingcss]

Пишу процедуру сортировки:

Код:

procedure TForm13.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  Sort := -Sort;
   if Column = ListView1.Columns[0] then
      ListView1.CustomSort( @SortCaptionAsString, Sort )
   if Column = ListView1.Columns[1] then
      ListView1.CustomSort( @SortFirstSubItemAsString, Sort ) 
   else
end;

Вот объявление:
function SortCaptionAsString(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;

и вот описание:

Код:

function TForm13.SortCaptionAsString(Item1, Item2: TListItem;
  ParamSort: integer): integer; 
begin
 Result := 0; 
   if AnsiUpperCase( Item1.Caption ) > AnsiUpperCase( Item2.Caption ) then
      Result := ParamSort 
   else
   if AnsiUpperCase( Item1.Caption ) < AnsiUpperCase( Item2.Caption ) then
      Result := -ParamSort;
end;

Админ: Пользуемся тегами для оформления кода!

выдает ошибку (Variable required) на строке:
ListView1.CustomSort( @SortCaptionAsString, Sort );
Гугл не помог уж незнаю в чем ошибка,