Falsche Farbe zurück. Wo ist hier mein Gedankenfehler?

Gast Erhaltene Danke: 1

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
var
  R, G, B: Byte;
begin
  R:= Byte(Color);
  G:= Byte(Color shr 8);
  B:= Byte(Color shr 16);
  Color := (B shl 16) + (G shl 8) + R;
end;

Color hin, Color her und schon stimmt Color nicht mehr.

Ich zerlege die Farbe und füge sie zusammen ohne eine Verändrung vorgenommen zu haben. Aber dennoch bekomme ich als Ergebnis ein schwarzes Formular zurück. Kann ich Color nicht so zerlegen? Wo ist der Fehler?

Gast Erhaltene Danke: 1

//Edit

Hat sich erledigt.

Was sagte meine Oma: Wenn du sicher sein willst, daß etwas erledigt wird dann mach es selbst.

Schande über mich. Weil ich zu faul war mir die Funktion selbst zu schreiben, hab ich sie im Internet gesucht. Alle Funktionen die ich gefunden habe funktionierten nicht. Jetzt hab ich mir die Funktion selbst geschrieben und sie funktioniert.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme