[[cHackAll]]

Aunque depende del componente; en lineas generales se puede utilizando la función PaintTo del objeto;

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var Bitmap: TBitmap;
begin
 Bitmap := TBitmap.Create;
 Bitmap.Width := VtChart1.Width;
 Bitmap.Height := VtChart1.Height;
 VtChart1.PaintTo(Bitmap.Canvas, 0, 0);
 Bitmap.SaveToStream( ... );
 Bitmap.Destroy;
end;