[v1s2222]

Код:

uses ExtCtrls; // делфи сам этот модуль подключает, но все таки
...
  private
    procedure Timer_(Sender: TObject);
...
// там где надо создать таймер:
var
  T: TTimer;
begin
  T := TTimer.Create(Self); // вместо self твоя форма
  T.Interval := 500;
  T.OnTimer := Timer_;
  T.Enabled := True;
end;

procedure TForm1.Timer_(Sender: TObject);
begin
  /// ну а тут твое событие таймера.
end;