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

[Client]

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

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

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

[volvo]

А почему '&' символ в разных пунктах на разных позициях?

А потому что если у тебя есть пункты "10" и "15", то в одном быстрый вызов будет назначен на 1, а во втором - на 5 (единица уже занята). Поэтому я и не стал привязываться к конкретной позиции символа "&", а сделал его поиск через Pos.

(можно конечно написать свою процедуру, но это не то)

Зачем писать что-то, оно ж уже написано, надо только вызвать:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // что-то 
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  // еще что-то
  Button1Click(Sender);
end;