Mehrere Anweisung in einem OnClick-Ereignis

[GimbaR]

Hi, hab mal wieder ne Frage, ich hab mit der Kompo "CoolTrayIcon" gearbeitet und wollte alle Items (bis auf das letzte) in ein PopupMenu einfügen (PopupMenu1) und dann per zuweisen eines onClick-ereignisses eine variable(ein String, der genauso heißt wie das item) definieren und danach eine prozedur starten, die die variable beinhaltet.

Hier der Code der prozedur:

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
var
  i, n: Integer;
  game: String;
  NewItem: TMenuItem;
begin
  SaveConfig;
  n:=3;
  for i:= 0 to ComboBox1.Items.Count-2 do
  begin
    n:=n+1;
    game:=ComboBox1.Items[i];
    NewItem:=TMenuItem.Create(PopupMenu1);
    PopupMenu1.Items.Add(NewItem);
    NewItem.Caption:=(game);
    NewItem.Tag:=n;
    NewItem.OnClick:=(begin gamename:=NewItem.Caption; StartGame; end;); //<-geht das? gamename, ist eine variable, die für das gesamte Formular erreichbar ist.
  end;
  Application.Minimize;
  CoolTrayIcon1.IconVisible:=true;
  CoolTrayIcon1.PopupMenu:=PopupMenu1;
end;

Meine Frage ist, ob dies überhaupt möglich ist, und wenn ja, wie?