Скриншот Tpanel

[Sascha]

Если поместить все рамки TPanel, формы и изображения внутри TPanel и прописываем процедуру:
TPanel name:=MainPanel.

procedure savePanelAsImage(fpPanel: tPanel; fpFileName: string);
var
   img: TBitmap;
begin
   img := TBitmap.Create;
   try
     img.Width := fpPanel.Width;
     img.Height := fpPanel.Height;
     fpPanel.PaintTo(img.Canvas, 0, 0);
     img.SaveToFile(fpFileName);
   finally
     img.Free;
   end
end;

Нажимаем кнопку и пишем код:

savePanelAsImage(MainPanel, 'd:\someFolder\image001.bmp');

Это образец на основе VCL;
Чтобы сохранить изображение в другом формате (скорее в BMP), используйте: TPngImage (Vcl.Imaging.pngImage) или TJPEGImage (Vcl.Imaging.jpeg);
Если вы используете FireMonkey (> = Delphi XE2), вы можете воспользоваться преимуществом someParentComponent.MakeScreenShot ();
Полученное изображение будет иметь тот же размер, что и tPanel.