Spaltenreihenfolge TListView ändern mit ListView_SetColumnOrderArray fehlerhaft?

[Luckie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(ListView1.Columns[0].Caption);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListView1.Columns[0].Index := 1;
end;

Button1 zeigt die richtige Caption an.