Ach ja, wenn es so anfängt
Delphi-Quellcode:
while (r<>0) and (g<>0) and (b<>0)
do begin
...
dann ist auch noch ein nette Fehler entstanden, den die Variablen, werden erst innerhalb der Schleife gesetzt (wenn überhaupt
), und sind demnach vorher noch nicht definiert.