[angvelem]

ТС забыл исправить с прямоугольника на треугольник:

Код:

var
  RectCooOrg,
  RectCooLast : array[0..3] of TPoint;
...

  RectCooOrg[0].X := -150;
  RectCooOrg[0].Y := - 75;
  RectCooOrg[1].X := -150;
  RectCooOrg[1].Y := 75;
  RectCooOrg[2].X := 150;
  RectCooOrg[2].Y := -75;
  RectCooOrg[3].X := -150;
  RectCooOrg[3].Y := -75;
...
  for I := 0 to 3 do
  begin
    RectCooLast[i].X := Round(RectCooOrg[i].X * cosa - RectCooOrg[i].Y * sina + x0);
    RectCooLast[i].Y := Round(RectCooOrg[i].Y * cosa + RectCooOrg[i].X * sina + y0);
  end;
  Image1.Canvas.Polyline(RectCooLast);