am einfachsten geht das so:
Delphi-Quellcode:
var
ind: byte = 0;
//im onClick:
const
farben: array[0..2] of TColor = (clBlack, clRed, clBlue);
begin
self.Color := farben[ind];
ind:= (ind+ 1) mod length(farben);
end;
dürfte einwandfrei klappen, und das hinzufügen von Farben is dann auch nicht mehr allzuschwer
greetz
Mike