Запуск программно созданного таймера не работает!

unit VannaM;
interface

uses
     Dialogs, Forms, Windows, Messages,  Variants, Classes, Graphics, SysUtils, Controls, StdCtrls, ExtCtrls,Math,RzButton,RzPrgres;

type
  TGmVanna = class(TPanel)


  private

    { Private declarations }
  protected




    procedure CreateButton(theButton:TRzBitBtn; Caption:String; X:Integer; Y:Integer; Event:TNotifyEvent);

    { Protected declarations }
  public
     TimerWater: TTimer;
     ID:String;
    Image:TImage;
    mLabel:TLabel;
    mBut1:TRzBitBtn;
    mBut2:TRzBitBtn;
    mBut3:TRzBitBtn;
    mBut4:TRzBitBtn;
    mBut5:TRzBitBtn;
    //var DataMap1: TDataMap;

    procedure SetPosition();{ Public declarations }
    procedure HelpME();
    Constructor Create(AOwner: TComponent); override;
      procedure Button1Click(Sender: TObject);
      procedure Button2Click(Sender: TObject);
      procedure Button3Click(Sender: TObject);
      procedure Button4Click(Sender: TObject);
      procedure Button5Click(Sender: TObject);

    procedure twInterval(Sender: TObject);
    //Constructor Show(AOwner: TComponent); override;
  published

    { Published declarations }
  end;

procedure Register;

implementation
uses frmMain;

procedure Register;
begin
  RegisterComponents('Samples', [TGmVanna]);
end;

constructor TGmVanna.Create;
begin
  inherited Create(AOwner);
  Width := 180;
  Height := 320;
  //Picture.LoadFromFile('bath.bmp');
  //Hint := ''+Name;
  //ShowHint:=true;
  //Some Do

  Image :=TImage.Create(Self);
  Image.Parent := Self;
  Image.Top:=0;
  Image.Left:=0;

  Image.Width:=180;
  Image.Height:=320;
  Image.Picture.LoadFromFile('bath.bmp');
  //Image.Visible:=true;
end;

procedure TGmVanna.twInterval(Sender: TObject);
begin
  //Button3Click(mBut3);
  ShowMessage('Timer GOGO');
  //(FindComponent('TimerWater'+IntToStr(Tag)) as TTimer).Enabled:=false;
end;

procedure TGmVanna.Button1Click(Sender: TObject);
var tID:String;
    I:integer;
begin
  I:=(Sender as TRzBitBtn).Tag;
  if I>9 then
    begin tID:=IntToStr(I); end
    else begin  tID:='0'+IntToStr(I); end;
  frmMainm.ComPort1.WriteStr('N'+tID+'S0'+#13) ;
end;

procedure TGmVanna.Button2Click(Sender: TObject);
var tID:String;
    I:integer;
begin

  I:=(Sender as TRzBitBtn).Tag;
  if I>9 then
    begin tID:=IntToStr(I); end
    else begin  tID:='0'+IntToStr(I); end;
  frmMainm.ComPort1.WriteStr('N'+tID+'S1'+#13);

  //ShowMessage((FindComponent('TW0')).ClassName);
  TimerWater.Enabled:=true;
end;

procedure TGmVanna.Button3Click(Sender: TObject);
var tID:String;
    I:integer;
begin
  I:=(Sender as TRzBitBtn).Tag;
  if I>9 then
    begin tID:=IntToStr(I); end
    else begin  tID:='0'+IntToStr(I); end;
  frmMainm.ComPort1.WriteStr('N'+tID+'S2'+#13) ;
end;

procedure TGmVanna.Button4Click(Sender: TObject);
var tID:String;
    I:integer;
begin
  I:=(Sender as TRzBitBtn).Tag;
  if I>9 then
    begin tID:=IntToStr(I); end
    else begin  tID:='0'+IntToStr(I); end;
  frmMainm.ComPort1.WriteStr('N'+tID+'S5'+#13) ;
end;

procedure TGmVanna.Button5Click(Sender: TObject);
var tID:String;
    I:integer;
begin
  I:=(Sender as TRzBitBtn).Tag;
  if I>9 then
    begin tID:=IntToStr(I); end
    else begin  tID:='0'+IntToStr(I); end;
  frmMainm.ComPort1.WriteStr('N'+tID+'S6'+#13) ;
end;

procedure TGmVanna.CreateButton(theButton:TRzBitBtn; Caption:String; X:Integer; Y:Integer; Event:TNotifyEvent);
begin
  theButton := TRzBitBtn.Create(Self);
  theButton.Parent := Self;
  theButton.Left:=X;
  theButton.Top:=Y;
  theButton.Tag:=StrToInt(ID);
  theButton.HotTrack:=true;
  theButton.Color:=$00F0F4F4;
  theButton.Width:=170;
  theButton.Caption:= Caption ;
  theButton.OnClick := Event;
end;

procedure TGmVanna.SetPosition();
var
 tmp : TNotifyEvent;
 twEvent:TNotifyEvent;
begin

  if Tag>9 then
    begin
      ID := IntToStr(Tag);
    end
  else
    begin
      ID := '0'+IntToStr(Tag);
    end;
  TimerWater:= TTimer.Create(Self);
  TimerWater.Enabled:=false;
  //TimerWater.Name:='TW'+IntToStr(Tag);
  TimerWater.Interval:=(5000);
  @twEvent:=@TGmVanna.twInterval;
  TimerWater.OnTimer:=twEvent;

 
  mLabel := TLabel.Create(Self);
  mLabel.Left:=5;
  mLabel.Top:=5;
  mLabel.Parent := Self;
  mLabel.Transparent:=true;
  mLabel.Caption:='Ванна №' +ID;
  mLabel.BringToFront;
  Hint := Name;


  @tmp := @TGmVanna.Button1Click;
  CreateButton(mBut1,'Сброс режима',5,20,tmp);
  @tmp := @TGmVanna.Button2Click;
  CreateButton(mBut2,'Залив воды',5,45,tmp);
  @tmp := @TGmVanna.Button3Click;
  CreateButton(mBut3,'Ожидание погружения',5,70,tmp);
  @tmp := @TGmVanna.Button4Click;
  CreateButton(mBut4,'Слив воды',5,95,tmp);
end;

procedure TGmVanna.HelpMe();
begin
  Image.Picture.LoadFromFile('bathh.bmp');
end;

end.