[alex_rR]

я пробую с помощью копирования, но увы не знаю, где ошибки искать.
редактирую специально для

Код:

procedure TfrmMDIParent.N11Click(Sender: TObject);
var   rang_:range;
      con, DefaultTableBehavior, NameWordDoc: OleVariant;
      t1:table;
      s:string;
      Gr:TfrmGrafik1MDIChild;
begin
  if SaveDialog.Execute then
    NameWordDoc := SaveDialog.FileName + '.doc';
  if NameWordDoc <> '' then
    begin
      WordApplication1.Connect;
      WordApplication1.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
      WordApplication1.Selection.TypeText('Отчет');
     
      Rang_:= WordApplication1.Selection.Range;
      WordApplication1.Selection.Tables.Add(rang_,6,5,DefaultTableBehavior,EmptyParam);
      t1:=WordApplication1.Selection.Tables.Item(1);
      s:= 'fhghfh';
      t1.Cell(1,1).Range.Text:=s;

     // Gr:=TfrmGrafik1MDIChil(ActiveMdiChild);

      Gr.Chart1.CopyToClipboardBitmap; //ошибка тут
     // WordApplication1.Selection.MoveDown(EmptyParam,con,EmptyParam);
      WordApplication1.Selection.PasteAndFormat(wdPasteDefault);

      WordDocument.ConnectTo(WordApplication1.ActiveDocument);
      WordDocument.SaveAs(NameWordDoc);
      WordApplication1.Visible := false;
      WordApplication1.Disconnect;
    end;
end;

здесь все в кучу, потому как пробная.
Ошибка Проект такой то raised exception class EAccessViolation with massage 'Access violation at address 004955f1 in module такой то, ну и процесс остановлен...