Aquí un ejemplito:
Código Delphi
[-]
procedure SaveRect(Form: TForm; Source: TRect; FileName: TFileName);
var
Bitmap: TBitmap;
Dest: TRect;
begin
Bitmap := TBitmap.Create;
try
Bitmap.Width := Source.Right - Source.Left;
Bitmap.Height := Source.Bottom - Source.Top;
Bitmap.PixelFormat := pf32bit;
Dest := Rect(0, 0, Bitmap.Width, Bitmap.Height);
Bitmap.Canvas.CopyRect(Dest, Form.Canvas, Source);
Bitmap.SaveToFile(Filename);
finally
Bitmap.Free;
end;
end;
La función recibe el formulario y la porción que requieres guardar y la guarda en el archivo indicado.
// Saludos