[VyachNik]

Всем привет!
Имеется форма, два эдита, контекстное меню, обработку контекстного меню попробовал повесить на оба эдита, а почему-то не работает, подскажите плиз, что не так, спасибо.

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.PopupMenu := PopupMenu1;
  Edit2.PopupMenu := PopupMenu1;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
    with Sender as TEdit do
      Text := 'Hello!';
end;