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

[Djony_91]

Имеется картинка в image. Нужно ее по нажатию кнопки поворачивать по часовой стрелке и против. Я тут в предыдущих темах много прочел об этом, но везде все поворачивается на указанный градус. но код там слишком громоздкий и не нужный. У меня все проще, ибо должно вертеться просто как в стандартных виндовских прогах для просмотра картинок.

Парюсь уже долго и не могу понять, что не работает. Вот код:

var cvet: dword;
i,j: integer;
b1,b2: tbitmap;
begin
b1:=tbitmap.create;
b2:=tbitmap.create;
b1.assign(form1.image1.picture);
b2.width:=b1.height; //поскольку картинка поворачивается, то высота становится шириной и наоборот
b2.height:=b1.width;
b2.palette:=b1.palette;

for i:=0 to b1.width-1 do
for j:=0 to b1.height-1 do
begin
cvet:=b1.canvas.pixels[j,i]; //из первого пикселя берется цвет
b2.canvas.pixels[i,b2.width-1-j]:=cvet; // цвет записывается в последний пиксель повернутого
end;

form1.image1.picture.assign(b2);
form1.image1.repaint;


В результате все поворачивается с какими-то пробелами и черными кусками, но поворачивается)) но не могу понять, что не так(

[CRUMB]

Промоделировать движение исследовательского зонда, «выстреленного» вертикально вверх с уровня земли. В верхней точке траектории над зондом раскрывается парашют, и он плавно спускается в точку старта.