안녕하세요~ 누리빛입니다.

TTimer를 사용해 보세요~

Timer의 Interval 프러퍼티를 1000, 즉 1초로 두고

OnTimer 이벤트에서 색을 바꿔주는 코딩을 해주면 되겠죠.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if Timer1.Tag = 0 then begin
        Form1.Color := clBlue;
        Timer1.Tag := Timer1.Tag + 1;
    end else if Timer1.Tag = 1 then begin
        Form1.Color := clRed;
        Timer1.Tag := Timer1.Tag - 1;
    end;
end;

그럼 도움 되시길 바라면서...