Reihenfolge TToolbutton

[_frank_]

Moin,
gibt es eine Möglichkeit zur Laufzeit die Reihenfolge der Toolbuttons in einer Toolbar zu ändern?
Hab da irgendwie noch nicht wirklich etwas gefunden...die left-eigenschaft funktioniert auch nicht wie gewünscht.
hier mein bisheriger Versuch (in toolbutton.tag steht die Position (0,1,2,...)):

Delphi-Quellcode:

  for i:=0 to pagecontrol1.PageCount-1 do
  begin
    tb:=(Pagecontrol1.Pages[i].Controls[0] as TToolbar);
    for j:=0 to tb.ButtonCount-1 do
    begin
      tbtn:=tb.Buttons[j];
      if tbtn.tag<>-1 then
        tbtn.Left:=tbtn.tag*tb.ButtonWidth;
    end;
  end;

Gruß Frank