Сохранить и вернуть обратно содержимое Canvas (delphi)

[_PROGRAMM_]

Приветствую всех форумчан. Я наткнулся на такой колючий вопрос. Мне нужно копировать все то, что находится на PaintBox, провести какие-то махинации на нем и вернуть обратно. С одной стороны это не нужно, но я хочу сделать, как бы, кнопку "Отменить изменение". Как можно сохранить то, что нарисовано в Canvas? Каким образом вернуть обратно?
Буду очень благодарен.

[Hacker19_90]

Ну делайте обьект типа TBitmap.
В него через CopyRect копируйте изображение. вот ну а потом если нужно, то методом Draw выведите назад!

[_PROGRAMM_]

Меня, собственно, и интересует как вывести с помощью Draw.

Можете привести простейший код?

[_PROGRAMM_]

OldCanvas - глобальная переменная Tbitmap.
JobOblast - TPaintBox;

Вот первая процедура. В ней сохраняется содержимое canvas в Tbitmap

var
Dest,Souers:TRect;

begin

OldCanvas:=Tbitmap.Create;
OldCanvas.Width:=JobOblast.Width;
OldCanvas.Height:=JobOblast.Height;

Dest:=Rect(0,0, OldCanvas.Width, OldCanvas.Height);
Souers:=Rect(0,0,JobOblast.Width, JobOblast.Width);

OldCanvas.Canvas.CopyRect(Dest,JobOblast.Canvas,Souers);
end;

Вот вторая процедура. Она должна все возвращать, но этого не происходит. Рисунок рястягивается вниз(часть не видно т.к. paintbox не меняет размер)

var
Dest,Souers:TRect;
begin

Dest:=Rect(0,0,JobOblast.Width, JobOblast.Width);
Souers:=Rect(0,0, OldCanvas.Width, OldCanvas.Height);

OldCanvas.Width:=JobOblast.Width;
OldCanvas.Height:=JobOblast.Height;

JobOblast.Canvas.CopyRect(Dest,JobOblast.Canvas,Souers);

end;

Что не так?