It might work, but I have problem since I want to sort 3rd column not 1st. I replaced 'Item1.Caption' to 'Item1.SubItems.Text', but it seems it gets data from wrong column. Another problem is that it works only one time, when I click on top of the column nothing changes. It would be great if I could sort ascending/descending.
BTW. Anyone know how to set default value in SpinEdit? I put 'SpinEdit1.Value:=10;' in OnCreate Form, but despite it says that is 10 procedure gets only 0.