Панель инструментов Опции

[Client]

Привет!
Я хочу из всплывающего меню (на скрине) изменять размер шрифта в мемо.

procedure TForm1.PopupMenu1Change(Sender: TObject; Source: TMenuItem;
  Rebuild: Boolean);
var
  a:integer;
begin
  a:=strtoint(Source.Caption);
  memo1.Font.Size:=a;
end;

Выдает ошибку сразу при запуске. Как тут быть?

[Client]

new_button := TButton.Create(Application);

Добавил описание

new_button:tbutton;

При нажатии кнопки создаю, но ничего нету...
Что не так?

procedure TForm1.Button1Click(Sender: TObject);
var
new_button:tbutton;
begin
new_button := TButton.Create(Application);
end;

Добавлено через 13 мин.

procedure TForm1.Button1Click(Sender: TObject);
var
new_button:tbutton;
begin
new_button := TButton.Create(Application);
new_button.Left:=100;
new_button.Top:=100;
new_button.Caption:='dfdsfds';
new_button.Parent:=Self;
end;

Получилось) А как добавить кнопку на панель инструментов? Это же не обычная кнопка? И что значит new_button.Parent:=Self?