Welcher ToolButton ruft PopupMenu auf?

[Khabarakh]

Wieso erstellst du denn LastSender im OnCreate?
Lieber so:

Delphi-Quellcode:

procedure TForm1.MenuItem11Click(Sender: TObject);
begin
  if Assigned(LastSender) then
    Showmessage(LastSender.Name);  //oder was auch immer mit dem Object machen
end;