нужно переделать программу под другую фигуру

uses GraphWPF, Timers;
 
const
  L = 50;
  dMove = 10;
  dSpeed = 0.2;
  dAngle = pi/18;
  dRotation = 0.01;
 
type
  tFigure = class
    x, y, angle, dx, dy, rotation : Real;
    
    constructor;
    begin
      x := Window.Width/2;
      y := Window.Height/2;
      angle := 0;
      dx := 0;
      dy := 0;
      rotation := 0;
    end;
    
    procedure Draw;
    begin
      Window.Clear(rgb(0,0,0));
      Pen.Color := rgb(255,255,255);
      Pen.Width := 2;
      Line(x,y,x+L*cos(angle),y-L*sin(angle));
      Line(x,y,x+L*cos(angle+pi/3*2),y-L*sin(angle+pi/3*2));
      Line(x,y,x+L*cos(angle-pi/3*2),y-L*sin(angle-pi/3*2));
    end;
    
    procedure Step;
    begin
    
      if dx <> 0 then
        if x + dx < 0 then (x,dx) := (1,0)
        else if x + dx > Window.Width then (x,dx) := (Window.Width - 1,0)
        else x += dx;
        
      if dy <> 0 then
        if y + dy < 0 then (y,dy) := (1,0)
        else if y + dy > Window.Height then (y,dy) := (Window.Height - 1,0)
        else y += dy;
        
      angle += rotation;
        
      Draw;
    end;
  end;
 
var f := New tFigure;
var t := New Timer(10, f.Step);
 
procedure KeyDown(k : Key);
begin
  case k of
    Key.Left  : if f.x - dMove > 0 then f.x -= dMove else f.x := 1;
    Key.Right : if f.x + dMove < Window.Width then f.x += dMove else f.x := Window.Width - 1;
    Key.Up    : if f.y - dMove > 0 then f.y -= dMove else f.y := 1;
    Key.Down  : if f.y + dMove < Window.Height then f.y += dMove else f.y := Window.Height - 1;
    Key.A     : f.dx -= dSpeed;
    Key.D     : f.dx += dSpeed;
    Key.W     : f.dy -= dSpeed;
    Key.S     : f.dy += dSpeed;
    Key.Q     : f.rotation += dRotation;
    Key.E     : f.rotation -= dRotation;
    Key.LeftCtrl : f.angle += dAngle;
    Key.RightCtrl : f.angle -= dAngle;
    Key.Escape : Halt;
    Key.Space : (f.dx,f.dy,f.rotation) := (0,0,0);
  end;
end;
 
begin
  Window.Caption := 'Движение стрелками / направление - W,A,S,D. Вращение - Ctrl / направление Q,E. Space - стоп. ESC - выход.';
  OnKeyDown := KeyDown;
  t.Enabled := True;
end.

procedure Draw;
var p:array of point;
      u:real;
begin
Window.Clear(rgb(0,0,0));
Pen.Color := rgb(255,255,255);
 Pen.Width := 2;
 u:=pi/2;
 setlength(p,6);
 for var i:=0 to 5 do
   begin
     p[i].x:=x+round(L*cos(angle+u));
     p[i].y:=y-round(L*sin(angle+u));
     u:=u+2*pi/5;
   end;
polyline(p);
line(p[0].x,p[0].y,p[2].x,p[2].y);
line(p[0].x,p[0].y,p[3].x,p[3].y);
line(p[1].x,p[1].y,p[4].x,p[4].y);
end;

const r = 100;

    function х(n : Integer) := x + r*sin(angle+pi*n*0.4);
    function у(n : Integer) := y - r*cos(angle+pi*n*0.4);
 
    procedure Draw;
    begin
      Window.Clear(rgb(0,0,0));
      Pen.Color := rgb(255,255,255);
      Pen.Width := 2;
      
      line(х(0),у(0),х(1),у(1));
      line(х(0),у(0),х(2),у(2));
      line(х(0),у(0),х(3),у(3));
      line(х(0),у(0),х(4),у(4));
      line(х(1),у(1),х(2),у(2));
      line(х(1),у(1),х(4),у(4));
      line(х(2),у(2),х(3),у(3));
      line(х(3),у(3),х(4),у(4));
    end;
 
    procedure Step;

      Draw;

      Redraw(Draw)