Поворот изображения в Image

[belanas]

Добрый вечер!

Нужно по нажатию на кнопку поворачивать изображение в Image. Но при повороте почему-то границы новой картинки "съедаются". Т.е. нужно чтобы граница просмотра растягивалась в зависимости от высоты/ширины рисунка при повороте. Никак не получается решить эту проблему.
Если кто-то сталкивался с подобным, буду очень признательна в помощи.

Ниже представлен мой код. Сначала загружается в Image картинка из openDialog, а потом я пытаюсь ее повернуть по нажатию на кнопку.

procedure TForm1.btn2Click(Sender: TObject);
var
bm, bm1: TBitMap;
x, y: integer;
r, a: single;
xo, yo: integer;
s, c: extended;
begin

bm := TBitMap.Create;
bm.LoadFromFile(opendialog1.filename);

bm.Height:=Form1.img1.Picture.Height;
bm.Width:=Form1.img1.Picture.Width;

xo := bm.Width div 2;
yo := bm.Height div 2;

bm1 := TBitMap.Create;

bm1.Height := bm.Height;
bm1.Width := bm.Width;

a := 0;
repeat
   for y := 0 to bm.Height - 1 do begin
     for x := 0 to bm.Width - 1 do begin
       r := sqrt(sqr(x - xo) + sqr(y - yo));
       SinCos(a + arctan2((y - yo), (x - xo)), s, c);
       bm1.Canvas.Pixels[x,y] := bm.Canvas.Pixels[round(xo + r * c), round(yo + r * s)];
     end;
     Application.ProcessMessages;
   end;

     img1.Canvas.Draw(0,0,bm1);


   a := a + 0.05;
   Application.ProcessMessages;
until Form1.Tag <> 0;
bm.Destroy;
bm1.Destroy;
end;

Заранее большущее вам спасибо!