[Kraeved]

Получилось! Как все просто оказывается! Сделал так:

Код:

procedure TForm3.ActionEditPlusMinusExecute(Sender: TObject);
begin
if (Screen.ActiveControl <> nil) and (Screen.ActiveControl is TRichEdit) then
  begin
  SendMessage(Screen.ActiveControl.Handle, EM_REPLACESEL, 0, integer(PCHAR(PlusMinus)));
  end;
end;