Foros Club Delphi - Objeto a Imagen

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