uses
  ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  ExcelApp: Variant;
begin
  // 챠트 이미지를 클립보드에 복사
  Chart1.CopyToClipboardBitmap;

  ExcelApp := CreateOleObject('Excel.Application');
  try
    ExcelApp.Visible := True;
    ExcelApp.WorkBooks.Add();
    ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Grid Data';
    ExcelApp.Workbooks[1].WorkSheets['Grid Data'].Paste;
  finally
  end;
end;

간단하게는 이렇게 하면 될겁니다.

좀더 입맛에 맞는 것은 연구해보시길.

sai 님이 쓰신 글 :
: TChart의 이미지를 엑셀 파일에 저장 또는 붙여넣기 하는 방법 알려 주시면 감사 하겠습니다.