Caption eines Menüitems in ein SynEdit fügen

[Nils_13]

Hi,

wie kann ich einer Liste von Menüeinträgen (TMainMenu) das OnClick Ereigniss zuweisen, die eigene Caption in ein SynEdit einzufügen ?

Delphi-Quellcode:

for i := 0 to fMemo.Lines.Count - 1 do
begin
  temp          := TMenuItem.Create(MainMenu.Items[3].Items[1]);
  temp.Caption  := ...;
  tempstr       := temp.Caption;
  temp.OnClick  := tempClick;
  MainMenu.Items[3].Items[1].Add(temp);
end;

procedure TfrmMain.tempClick(Sender: TObject);
begin
  ???
end;