procedure TFormMain.Listview1ColumnClick(Sender: TObject; Column: TListColumn);var ColumnNr: Integer;begin ColumnNr := Listview1.Column[Column.Index].Index; ShowMessage(IntToStr(ColumnNr));end;