[Mad programmer]

Идея у тебя правильная. Скорее всего ты неправильно ищешь текст. Я не видел всей процедуры но попоробуй так:

Код:

procedure TForml.ButtonllClick(Sender: TObject);
begin

.....
  Chart1.CopyToClipboardBitmap;
  W.Selection.Find.Forward:=true;
  W.Selection.Find.Text:='###Диаграмма1&';
  if W.Selection.Find.Execute then 
     W.Selection.Paste;
end;

Admin: Не забываем про теги!