问一个比较弱的关于弹出式菜单问题！

我在程序中加入了一个PopupMenu控件，然后加入了两条菜单项
       红色
       蓝色
  然后加入了菜单项的点击事件
  procedure TForm1.RedClick(Sender: TObject);
  begin
  (Sender as TEdit).Color:=clred;
  end;  procedure TForm1.BlueClick(Sender: TObject);
  begin
  (Sender as TEdit).Color:=clBlue;
  end;
  
  我想在一个Edit控件的右键时间中加入该PopupMenu的控件事件，将控件的颜色设置成对应的颜色，于是我就将Edit的PopupMenu属性设置成了PopupMenu1
  
  但是当我右键点击Edit并且点击菜单项的时候程序就死了？
  请教，这是怎么回事？
  应该怎么处理？？？！