我想用一個 popupmenu 裡的一個 menu item 而已 來控制 兩個 memo 比如說 popupmenu 裡有一個menu item 是clear message 是用來執行 memo 的 clear 但如果同時是 memo1 和 memo2 的 popupmenu 我要怎樣寫才對呢? 我試過這樣寫 ClearmessageClick(Sender : tobject) var item as Tmemo; begin item := sender as tmemo; item.clear(); end; 但是不行, 請問可以怎樣做

begin
  if PopupMenu1.PopupComponent = Memo1 then
    Memo1.Lines.Clear;
  if PopupMenu1.PopupComponent = Memo2 then
    Memo2.Lines.Clear;
end;

-- QBQ: 我能做什麼？