Bitmap.Canvas.Pen.Color:=clred;
Bitmap.Canvas.Pen.Width:=3;
Bitmap.Canvas.Polygon([Point(20,50),Point(30,20),Point(40,50)]);

нариcовать треугольник размером как у меня

Bitmap.Canvas.Polygon([Point(x,4*y),Point(3*x,4*y),Point(2*x,y)]);

x: = x + f*sin(угол- PI/2) 
y: = y + f*cos(угол- PI/2)

procedure DrawTriangle(const X, Y,  R: Integer);
var
  A: array of TPoint;
begin
  //R = radius from point centre
  SetLength(A,3);
  A[0].X := x;
  A[0].Y := y-R;
  A[1].X := x-R;
  A[1].Y := y+R;
  A[2].X := x+R;
  A[2].Y := y+R;

   img.Canvas.Polygon(A);
end;

procedure TForm1.DrawTriangle(const X, Y, N, R: Integer);
var
  A: array of TPoint;
  xx,yy,x0,y0:integer;
begin

  //xx:=round((x)*cos(n)-(y)*sin(n));
  //yy:=round((x)*sin(n)+(y)*cos(n));
  //xx:=x+round(r*sin(N*pi/180));
  //yy:=y-round(r*cos(N*pi/180));
  //xx:=x+round(r*sin(n*pi/180));
  //yy:=y-round(r*cos(n*pi/180));
  //showmessage(inttostr(xx));
  //showmessage(inttostr(yy));
  //R = radius from point centre
 // обычное:
XX := round(x * cos(n) - y * sin(n));
YY := round(y * cos(n) + x * sin(n));
{
вокруг центра:

X = x0 + (x - x0) * cos(a) - (y - y0) * sin(a);
Y = y0 + (y - y0) * cos(a) + (x - x0) * sin(a);
где, (x0, y0) — центр, точка вокруг которой нужно вращать    }



  SetLength(A,3);
  A[0].X := xx  ;
  A[0].Y := yy-R ;
  A[1].X := xx-R ;
  A[1].Y := yy+R ;
  A[2].X := xx+R ; //сюда тоже пытался подставлять формулы, результат 0
  A[2].Y := yy+R ;

  image321.Canvas.Pen.Color:=clred;
  image321.Canvas.Pen.Width:=3;

  image321.Canvas.Polygon(A);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

DrawTriangle(256,256,strtoint(Edit1.Text),5);



end;