[MiraLaklamon]

[quote=osminog]

Сообщение от MiraLaklamon

Ндя... А причём тут картинка Image3 и его событие OnClick ? Речь вроде идёт о таймере?
огромное спасибо, так как Вы описали = работает!

тока есть момент, чтобы это стартовало по нажатию кнопки

... и если не трудно, расшифруйте код:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag:=Timer1.Tag+1;
  if Odd(Timer1.Tag) then
  begin
...
  end;

У любого компонента есть свойство Tag типа Integer, которое можно использовать для собственных нужд. В данном случае при каждом срабатывании события таймера (т.е. каждые 3 секунды) это свойство увеличивается на 1 и потом проверяется - если оно нечётное то проверяется запущена ли служба А1, иначе (т.е. если чётное) проверяется запущена ли служба А2.
Но это был просто пример, в реальных программах лучше для этого объявлять переменную-поле у формы.
А чтобы стартовало по кнопке - в событии OnClick кнопки можно написать так:

Код:

  Timer1.Enabled:=not Timer1.Enabled;

Тогда каждое нажатие кнопки будет то включать, то выключать таймер.