Копирование из Tbitmap в canvas (delphi)

[_PROGRAMM_]

Приветствую всех форумчан.
Мне нужно копировать изображение из объекта Bitmap в объект Canvas.
JobOblast - PaintBox (использую его канвас);
OldCanvas - Tbitmap;

В одной процедуре я копирую канвас PaintBox'a в битмап, а в другой наоборот. При выводе Tbitmap на canvas изображение уменьшается. Мне кажется, то ошибка в первой процедуре.

Первая процедура

var
Dest,Souers:TRect;

begin
OldX:=X;
OldY:=Y;
DownActive:=True;

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;

Вторая процедура

JobOblast.Canvas.BrushCopy(Rect(0,0,JobOblast.Width,JobOblast.Height),
                           OldCanvas,
                           Rect(0,0,OldCanvas.Width,OldCanvas.Height),
                           clRed);

[_PROGRAMM_]

Никто таким не занимался? Я делаю простенький редактор и кнопку "Отменить", но она работает, как Уменьшить.