Переделал стандартный пример, выдаёт ошибки по типам для ProgressBar1.Position

unit догонялочка;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    ProgressBar1: TProgressBar;
    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage('Ты выйграл!');
end;
 
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var index: Integer;
begin
index:=random(4);
case index of
0:Button1.Left:=Button1.Left+Button1.Width;
1:Button1.Left:=Button1.Left-Button1.Width;
2:Button1.Left:=Button1.Top+Button1.Height;
3:Button1.Left:=Button1.Top-Button1.Height;
end;
if Button1.Left<0 then
Button1.Left:= 0;
if(Button1.Left+Button1.Width)>Form1.width then
Button1.Left:=Form1.width-Button1.Width;
if Button1.Top<0 then
Button1.Top:=0;
if(Button1.Top+Button1.Height)>Form1.Height then
Button1.Top:=Form1.Height-Button1.Height;
 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position := +1;
if ProgressBar1.Position = 20 then
begin
Timer1.Enabled := 'false';
Button1.Enabled := 'false';
ProgressBar1.Enabled := 'false';
If MessageBox(Handle, PAnsiChar('Вы хотите сыграть ещё?'), PWideChar('Подтверждение'), mb_IconQuestion or mb_YesNo) = 6 then
  begin
Timer1.Enabled := 'true';
Button1.Enabled := 'true';
ProgressBar1.Enabled := 'true';
  end;
end;
end;
 
end.

if ProgressBar1.Position = 20 then

Timer1.Enabled := 'false';

Button1.Enabled := 'false';

ProgressBar1.Enabled := 'false';

If MessageBox(Handle, PAnsiChar('Вы хотите сыграть ещё?'), PAnsiChar('Подтверждение'), mb_IconQuestion or mb_YesNo) = 6 then

Timer1.Enabled := 'true';

Button1.Enabled := 'true';

ProgressBar1.Enabled := 'true';

MessageBox(Handle, PAnsiChar('Вы хотите сыграть ещё?'), PWideChar('Подтверждение'), mb_IconQuestion or mb_YesNo)

MessageBox(Handle, PAnsiChar('Вы хотите сыграть ещё?'), PAnsiChar('Подтверждение'), mb_IconQuestion or mb_YesNo)

MessageBox(Handle, PWideChar('Вы хотите сыграть ещё?'), PWideChar('Подтверждение'), mb_IconQuestion or mb_YesNo)

MessageBox(Handle, 'Вы хотите сыграть ещё?', 'Подтверждение', mb_IconQuestion or mb_YesNo)

ProgressBar1.Position := ProgressBar1.Position + 1;

Inc(ProgressBar1.Position, 1);

ProgressBar1.Position :=  ProgressBar1.Position + 1;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position := ProgressBar1.Position + 1;
if ProgressBar1.Position = 20 then
begin
Timer1.Enabled := false;
Button1.Enabled := false;
ProgressBar1.Enabled := false;
If MessageBox(Handle, 'Вы хотите сыграть ещё?', 'Подтверждение', mb_IconQuestion or mb_YesNo) = 6 then
begin
Timer1.Enabled := true;
Button1.Enabled := true;
ProgressBar1.Enabled := true;
ProgressBar1.Position := 0;
else
Form1.Close();
end;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    ProgressBar1.Position := ProgressBar1.Position + 1;
    if ProgressBar1.Position = 20 then
    begin
        Timer1.Enabled := false;
        Button1.Enabled := false;
        ProgressBar1.Enabled := false;
        If MessageBox(Handle, 'Вы хотите сыграть ещё?', 'Подтверждение', mb_IconQuestion or mb_YesNo) = 6 then
        begin
            Timer1.Enabled := true;
            Button1.Enabled := true;
            ProgressBar1.Enabled := true;
            ProgressBar1.Position := 0;
        end
        else
            Form1.Close();
    end;
end;
 
end.

  If Key = vk_return then
    key := 0;