Timer1.Interval = 1000;
  Timer1.OnTimer := твоя_функция;
  Timer1.Enabled := true;