Ошибка в программе $C0000005

tmr.Interval := 4000;

procedure TForm2.ShowMsg;
begin
  tmr.Interval := 4000;
  tmr.OnTimer := CloseMsg;
  tmr.Enabled := True;
  msg.ShowModal;
end;

tmr.Interval := 4000;

unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.pngimage,
  Vcl.ExtCtrls;
 
type
  TForm2 = class(TForm)
    Image1: TImage;
    line0: TLabel;
    line1: TLabel;
    line2: TLabel;
  private
    { Private declarations }
    tmr: TTimer;
  published
    { Public declarations }
    procedure SetLine(num: integer; text: string);
    procedure ShowMsg;
    procedure CloseMsg(Sender: TObject);
  end;
 
var
  msg: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.SetLine(num: Integer; text: string);
begin
  case num of
    1: line0.Caption := text;
    2: line1.Caption := text;
    3: line2.Caption := text;
  end;
end;
 
procedure TForm2.ShowMsg;
begin
  tmr.Interval := 4000;
  tmr.OnTimer := CloseMsg;
  tmr.Enabled := True;
  msg.ShowModal;
end;
 
procedure TForm2.CloseMsg(Sender: TObject);
begin
  tmr.Enabled := false;
  msg.Hide;
end;
 
end.

if host = '***' then msg.ShowMsg;

type
  TForm2 = class(TForm)
    Image1: TImage;
    line0: TLabel;
    line1: TLabel;
    line2: TLabel;
  private
    { Private declarations }
    tmr: TTimer;
         ...

TTimer.Create(tmr);

tmr:=TTimer.Create.

[dcc32 Error] Unit2.pas(44): E2035 Not enough actual parameters