Kerlap Kerlip

procedure TForm2.Timer1Timer(Sender: TObject);
begin
if form2.Color = clblue then
form2.Color := clyellow else
form2.Color := clblue ;

end;