Долго не мог наткнутся на реализацию Матрицы поворота на делфи и обрисовки изображения.
Сделано просто и для простого. может кому пригодится


procedure midpoint2(x,y,vx,vy:Integer; var x2,y2:Integer); //x.y точка вокруг которой нужно крутится. vx, vy вторая точка по которой вчесляется вектор
var
xv,yv,per:Integer;
begin
per:=Round(pi/4);
    xv:=vx-x; // векторы
    yv:=vy-y;
    vx:=Round(xv*cos(per)-yv*sin(per)); // сам поворот
    vy:=Round(xv*sin(per)+yv*cos(per));
    vx:=vx+x; // повернутые точки
    vy:=vy+y;
    x2:=vx;//
    y2:=vy;// ну это лично для удобства было
end

всем удачи. если кто улучшит пишите буду рад