Question about Delphi (Lazarus)?

Question

Lazarus

There is a TToolBar on the form. On it, respectively, the TToolButton buttons.
How can you programmatically move (swap) the buttons on this ToolBar while the program is running?

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var temp: integer;
begin
temp := ToolButton1.Left;
ToolButton1.Left := ToolButton2.Left;
ToolButton2.Left := ToolButton1.Left;
end;

Answer 2

Horse has a typo, you need to do this:
procedure TForm1.FormCreate(Sender: TObject);
var temp: integer;
begin
temp := ToolButton1.Left;
ToolButton1.Left := ToolButton2.Left;
ToolButton2.Left := temp;
end;