Hola foreros.... investigando encontre una herramienta en Visual Basic que combierte un objeto a Imagen..... también lo existe en Delphi??, pongo el código de conversión y el vinculo del dll por si alguien pudiera auxiliarme.
de antemano muchas gracias
Código:
Call RefreshScale(sbScaleBar1, Map)
Dim bmp2 As cDIBSection
Set bmp2 = New cDIBSection
Call bmp2.Create(401, 33)
Call apiBitBlt(bmp2.hdc, 0, 0, 401, 33, sbScaleBar1.hdc, 0, 0, SRCCOPY)
Call SaveJPG(bmp2, << FILENAME >> )
http://www.vbaccelerator.com/codelib/gfx/vbjpeg.htm