Ein Menü für mehrere Komponenten

[Karsten]

Hallo,

ich habe 4 TRichEdit Komponenten auf einer Form für die ein und das selbe TPopupMenu verwendet werden soll, ist halt auf alle 4 anwendbar. Mein Problem ist nun das ich beim ausführen des Codes unterscheiden muß von welcher TRichEdit Komponente aus eine Funktion aus dem Menü aufgerufen wurde.
Ich habe dazu bereits mit "Sender" experimentiert, aber erfolglos...Sender scheint keinerlei information zu enthalten.

Code:

procedure TForm.Function1Click(Sender: TObject);
begin
  if Sender = RichEdit1 then
    Function1(RichEdit1);

  if Sender = RichEdit2 then
    Function1(RichEdit2);

  if Sender = RichEdit3 then
    Function1(RichEdit3);

  if Sender = RichEdit4 then
    Function1(RichEdit4);
end;

Wer kann mir hier weiterhelfen ?