EXCEL的复制、粘贴问题

try
    ExcelApplication1.Connect;//打开Excel
  Except
    MessageDlg('Excel没有被安装！',mtError, [mbOk], 0);
    Abort;
  End;
  ExcelApplication1.Visible[0] := true;   //显示当前窗口
  Excelapplication1.Workbooks.Open(pchar(dest),
    null,null,null,null,null,null,null,null,null,null,null,null,0);//打开指定的EXCEL 文件
  Excelworkbook1.Connectto(ExcelApplication1.workbooks[1]);
  Excelworksheet1.Connectto(Excelworkbook1.sheets[1] as _worksheet); 
  Excelworksheet1.cells.Item[6,2] := datetostr(dtp.Date);
  Excelworksheet1.Cells.Item[6,5] := txtckdh.Text;
  Excelworksheet1.cells.Item[6,7] := txtjzxh.Text;
　Excelworksheet1.Range[Excelworksheet1.cells.Item[6,1],Excelworksheet1.cells.Item[6,16]].Copy;
 现在我要实现对上面这条记录进行复制、粘贴，用到COPY、PasteSpecial，却实现不了，谁有这方面的资料或做过，请帮忙指点，谢谢