[Decoding]

Так все практичетки тоже самое. Создай BitMap размером с PaintBox:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
   bm := TBitmap.Create;
   bm.Width := PaintBox1.Width;
   bm.Height := PaintBox1.Height;
end;

Теперь сохранить содержимое PaintBox в bm можно следующим образом:

Код:

BitBlt( bm.Canvas.Handle, 0, 0, PaintBox1.Width, PaintBox1.Height, PaintBox1.Canvas.Handle, 0, 0, SRCCOPY );

Ну а теперь все с точностью до наоборот, отрисовываем bm на PaintBox:

Код:

BitBlt( PaintBox1.Canvas.Handle, 0, 0, bm.Width, bm.Height, bm.Canvas.Handle, 0, 0, SRCCOPY );