Поворот не туда.Аффинные преобразования

var
 PointImage1X , PointImage1Y, PointImageEndX , PointImageEndY : array of integer;
 i  , x , y , angle: integer;
 ColorImage : array of TColor;
 
begin
  i:=0; 
  //угол поворота
  angle:=SpinEdit1.Value;
  //перебор всех пикселей изображения. DrawPointX,DrawPointY-начало отрисовки
  for x:=DrawPointX to  DrawPointX+ImageWidth do
    for y:=DrawPointY to  DrawPointY + ImageHeight do
      begin
          //начальные координаты
          PointImage1X[i]:=x;
          PointImage1Y[i]:=y;
          //запись цвета пикселей в массив
          ColorImage[i]:=Image1.Canvas.Pixels[x,y];
          //расчет новых координат
          PointImageEndX[i]:=((round(cos(angle)))*PointImage1X[i])+((round(sin(angle)))*PointImage1Y[i]);
          PointImageEndY[i]:=((round(-(sin(angle))))*PointImage1X[i]) + ((round(cos(angle)))*PointImage1Y[i]);
          //закраска старой картинки. рисовка картинки с полученными координатами
          Image1.Canvas.Pixels[PointImage1X[i],PointImage1Y[i]]:=clwhite;
          Image1.Canvas.Pixels[PointImageEndX[i] , PointImageEndY[i]]:=ColorImage[i] ;
          inc(i);
      end;
end;