procedure TfrmOBEXFM.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
var
  i: integer;
begin
  LvSortStyle := cssAlphaNum;
  { determine the sort style }
   if Column.Index = 1 then
     LvSortStyle := cssItemData;
   //if Column.Index = 3 then
   //  LvSortStyle := cssNumeric;

   { Call the CustomSort method }
   ListView1.CustomSort(@CustomSortProc, Column.Index -1);
   { Set the sort order for the column}
   LvSortOrder[Column.Index] := not LvSortOrder[Column.Index];
   // set column image
   for i:= 0 to ListView1.Columns.Count-1 do ListView1.Column[i].ImageIndex:= -1;
   if LvSortOrder[Column.Index]
   then
     ListView1.Column[Column.Index].ImageIndex:= 21
   else
     ListView1.Column[Column.Index].ImageIndex:= 22;
end;