Идея у тебя правильная. Скорее всего ты неправильно ищешь текст. Я не видел всей процедуры но попоробуй так:
Код:
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: Не забываем про теги!