Any way for two canvas(graphics)

Does any way to create two instances of the graphic objects? As this:

Local gfx1:TGraphics = CreateGraphics( 100, 100, 0, 0, 0 )
Local gfx2:TGraphics = CreateGraphics( 340, 200, 0, 0, 0 )
...
SetGraphics( gfx1 )
...
EndGraphics
SetGraphics( gfx2 )
...
EndGraphics

This would be need for draw same offscreen images and save without displaying. But the second graphic object don't creates.

If I understand correctly you need to use the Backbuffer or check for a couple of Render-to-Texture modules on these forums.