Если текст выделен

[Stilet]

Если текст выделен то кнопка Copy должна быть доступна.

Яб делал так:

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Button1.Enabled:=RichEdit1.SelLength<>0;
end;

[Shouldercannon]

Спасибо уже лучше не ругается если в буфере текст+картинка. Теперь осталось разрулить, если буфер непуст то Paste1.Enabled. Попробую на старом примере отработать, но дополнительные варианты не помешали бы.
Нет не получается со старым вариантом. Может сделать это в четыре процедуры:
Copy1.Enabled

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Copy1.Enabled:=RichEdit1.SelLength<>0;
end;

Copy

RichEdit1.CopyToClipboard;

Paste1.Enabled
???
Paste

procedure TForm1.Paste1Click(Sender: TObject);
begin
RichEdit1.Perform(WM_PASTE, 0, 0);
end;

[NikLik]

Сообщение от Shouldercannon

Не совсем понимаю зачем текст сидящий в буфере выводить в заголовок формы?

Сообщение от NikLik

Хм...
Небольшой пример, думаю ты разберёшься:

...

Что конкретно не получается "со старым вариантом"?

Вот полностью рабочий проект(во всяком случае, я глюков не обнаружил) с реализацией того, что ты просил.
P.S. Посмотри на события для Form1 и RichEdit1, не забудь сделать также в своём проекте.(просто на всякий случай напоминаю)

[Shouldercannon]

Теперь вроде не ругается. буду тестировать дальше.

P.S. Посмотри на события для Form1 и RichEdit1, не забудь сделать также в своём проекте.

В старом и вновом ваших проектах я это всё переписывал до мельчайших подробностей.

[Shouldercannon]

Сдела проект посложнее с ещё одним Copy и Cut. Запутался что к чему сначала вроде нормально работает потом в RichEdit1 при выделенном тексте не появляется менюшка.

[NikLik]

Хм...попробуй сам вызывать выпадение менюшки.

procedure TForm1.RichEdit1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  p: TPoint;
begin
  Copy1.Enabled := boolean(RichEdit1.SelLength);
  if Button = mbRight then
  begin
    p.x := x;
    p.y := y;
    p := ClientToScreen(p);
    PopupMenu1.Popup(p.x, p.y);
  end;
end;

Хотя вариант конечно не очень хороший

[Shouldercannon]

С менюшками всё нормально. Rich1 после нескольких операций с текстом, перестаёт показывать меню при выделенном тексте.

[alexBlack]

Сообщение от Shouldercannon

сначала вроде нормально работает потом в RichEdit1 при выделенном тексте не появляется менюшка.

У Вас в коде некорректное приведение типов:

Copy1.Enabled := boolean(RichEdit1.SelLength);

замените все такие приведения на сравнение:

Copy1.Enabled := RichEdit1.SelLength > 0;

Пример:

var b1, b2:boolean;
begin
   b1 := boolean(5);
   b2 := boolean(6);
   if b1 <> b2 then ShowMessage('dddd');
end;

При таком приведении и сравнении значения будут не равны хотя (казалось бы) оба true. Это сказывается на работе метода TMenuItem.SetEnable (в нем первой строчкой сравнение), поэтому менюшка иногда не появляется.