[[coso]]

o bien...

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
        if Shape1.Brush.Color = clRed then 
        Shape1.Brush.Color := clGreen else
        Shape1.Brush.Color := clRed;
end;