[Admin]

Код:

type
  TForm9 = class(TForm)
    ... 
    procedure TimerProc(Sender: TObject);
  private

var
  Form9: TForm9;
  MyTimer: TTimer;

procedure TForm9.FormCreate(Sender: TObject);
begin
 // создаем свой таймер
 MyTimer:=TTimer.Create(Self);
 MyTimer.Interval:=2000;
 MyTimer.OnTimer:=TimerProc;
 MyTimer.Enabled:=false;
end;

procedure TForm9.Button2Click(Sender: TObject);
begin
 MyTimer.Enabled:=true;
end;

procedure TForm9.TimerProc(Sender: TObject);
begin
 // выполняем какие-то действия
 // ...
end;

procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 MyTimer.Free;
end;