procedure TForm1.Timer1Timer(Sender: TObject);
Var ThisTimer: TTimer;
begin
  ThisTimer := TTimer(Sender);
  ThisTimer.Tag := ThisTimer.Tag - 1;
  If ThisTimer.Tag < 0 Then
  Begin
    ThisTimer.Enabled := False;
    Exit;
  End;

  // А здесь пишешь тот код, который должен у тебя выполниться через
  // равные промежутки времени.
  // Внимание! Установи на форме для таймера параметр Enabled в False,
  // если не хочешь, чтобы он выполнялся сразу после создания формы.
  // Для запуска кода делаешь Timer1.Enabled := True
  // В свойство таймера Tag устанавливаешь нужное количество итераций.
  // В свойство таймера Interval ставишь нужное кол-во миллисекунд.

end;