Etwas anschaulicher, aber länger, wäre diese Möglichkeit:
Delphi-Quellcode:
var
Color_Flag: Integer = 1;
[...]
procedure TForm1.Button1Click(Sender: TObject);
begin
case Color_Flag of
1: Color := clRed;
2: Color := clYellow;
3: Color := clGreen;
end;
if Color_Flag <> 3 then
inc(Color_Flag) else
Color_Flag := 1;
end;