Нужно поменять на другую фигуру(во вложениях)

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;
    var p:array of point;
      u:real;
begin
Window.Clear(rgb(255,255,255));
Pen.Color := rgb(0,0,0);
 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;
    
    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(255,255,255));
Pen.Color := rgb(0,0,0);
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;
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);
line(p[1].X,p[1].Y,p[2].X,p[2].y);
line(p[2].X,p[2].Y,p[3].X,p[3].y);
line(p[3].X,p[3].Y,p[4].X,p[4].y);
end;