[bleex]

если вставляю break после смены цвета - ничего не меняется;
если ставлю exit - работает 1 раз, так же как и с timer.interval:=0
запускаю с кнопки:

Код:

procedure TForm5.FindbClick(Sender: TObject);
begin
   timer2.Interval:= 1000;
end;