1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm2.copyy1Click(Sender: TObject);
var
  r:TRichedit;
begin
   if PopupMenu1.PopupComponent is TRichedit then
      begin
      r := TRichedit(PopupMenu1.PopupComponent);
      SendMessage(r.Handle , WM_Copy,0,0);
      end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TMainform.Ausschneiden1Click(Sender: TObject);
begin
  RichEdit1.CutToClipboard;
end;

procedure TMainform.Einfgen1Click(Sender: TObject);
begin
  RichEdit1.PasteFromClipboard;
end;

procedure TMainform.Kopieren1Click(Sender: TObject);
begin
  RichEdit1.CopyToClipboard;
end;