delphi 7 控件bug!

listview的列经过拖动后，在ColumnClick事件中传的参数Column:TListColumn是错的。你点m列它给的却是n列。
有没有人发现这个问题，怎么解决procedure TForm1.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
showmessage(column.Caption + ':' + inttostr(column.Index ) );
end;