[Kapitoshka438]

Только желательно переменную ATimer описать в классе формы

Код:

TForm1 = class(TForm)
...
  ATimer: TTimer;
  procedure MyTimerEvent(Sender : TObject);
  procedure CreateMyTimer;
end;

procedure TForm1.CreateMyTimer;
begin
  ATimer := TTimer.Create(Self);
  ATimer.Parent := Self;
  ATimer.OnTimer := MyTimerEvent;
  ATimer.Interval := 200;
  ATimer.Enabled := True;
end;

Иначе по завершении процедуры CreateMyTimer потеряется ссылка на него, и вы не сможете к нему легко обратиться, придется сначала его найти.