Mal ein kürzerer Vorschlag:
Delphi-Quellcode:
procedure rotton(col:tcolor);
begin
if (getrvalue(col)>getgvalue(col)) and (getrvalue(col)>getbvalue(col)) then
showmessage('Rotton') else showmessage('kein Rotton');
end;
Oder habe ich die Frage missverstanden?
//Edit: Oh man, es ist echt zu spät für mich...