VCL Delphi

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