[SCrat.ORS]

можно так:

Код:

const
t1=1000;//таймер желтого
t2=5000;//таймер зелёного
t3=10000;//таймер нейтрали
var
counter:integer;   //счетчик
begin
panel1.Color:=clBlack; //стартовый цвет
counter:=0; //обнуление счетчика
   While true do begin   //запуск бесконечного цикла
   case counter of      //начала блока условий
     t1: panel1.Color:=clYellow;
     t2: panel1.Color:=clgreen;
     t3: begin panel1.Color:=clBlack; counter:=0; end;
   end;
   sleep(1);  //пауза. если в таймере делать то не нужно эту строку
   inc(counter);  //прибавляем к счетчику
   application.ProcessMessages;// чтобы не зависало
   end;
end;

но лучше делать не в бесконечном цикле а в TTimer с interval = 1