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

[Client]

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

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

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

[Client]

...
 private
    procedure NEWButtonsClick(Sender: TObject);
...
procedure NEWButtonsClick(Sender: TObject);
begin
  showmessage('СООБЩЕНИЕ')
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
t1 := TButton.Create(Application);
t1.Left:=100;
t1.Top:=100;
t1.Caption:='кнопка';
t1.Parent:=Form1;
t1.OnClick:=NEWButtonsClick();

end;

Как тут вызвать процедуру на нажатие созданной кнопки?

Сообщение отредактировано: Client - 20.05.2009 21:25