[v1s2222]

Лучше в голову не чего не приходит. Просто делай скриншот по координатам (то есть только то, где есть чарты).

Код:

procedure TForm1.Button1Click(Sender: TObject);
var bmp:TBitmap;
begin
    bmp := TBitmap.Create;
    bmp.Width := form1.Width div 2;
    bmp.Height := form1.Height div 2;
    BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height,
           GetDC(0), 0,0,SRCCOPY);
  
    bmp.SaveToFile('mybmp.bmp');
    bmp.Free;
end;

Ну а вместо GetDC(0) пиши хендл своей формы (GetDC(Handle)).