Копируй буффер в рисунок размером с текущее разрешение, а потом ресайзь его
ScaleImage
Ну а потом сохраняй.
SrcWidth# = GraphicsWidth()
SrcHeight# = GraphicsHeight()
DestWidth# = 2000
DestHeight# = 2000
Buffer = CreateImage(SrcWidth, SrcHeight)
GrabImage(Buffer, 0, 0)
ScaleImage(Buffer, DestWidth/SrcWidth, DestHeight/SrcHeight)
SaveImage(Buffer, "C:\Frame1.bmp")
FreeImage(Buffer)