遅くなって申し訳ない

procedure TForm1.FormCreate(Sender: TObject);
begin
ListView1.CustomSort(@CustomSortProc, 0);
end;
function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
Result := -CompareText(Item1.Caption,Item2.Caption);
end;