TListView / Sorting

Hi,

I have placed a TListview on an form and it's style is 'Report'. It's
allowed to click on the column headers.

When I click on the header I want Delphi to sort the lines. So when I
click in the example on 'Code'. Textline 2 should appear above TextLine
1.

Example.
Heading:              ID        Code    Description
TextLine 1:           1          87        This was a funny year
TextLine 2:           2          80        This was also a funny year

Anyone around to help me out?

Thanks in Advance.

Jan Boes