[Delphi]Farben

[netmario]

Delphi-Quellcode:

procedure TForm1.SRotChange(Sender: TObject);
begin
  rot:=SRot.Position;
  Zrot.Caption:=IntToStr(Rot);
  FRot.Color:=rot;
  FRot.Color:=RGB(rot,0,0);
  FarbenPanel.Color := RGB(Rot, Gruen, Blau);
  Label1.Caption:= IntToHex(GetRValue(Farbenpanel)) + IntToHex(GetGValue(Farbenpanel)) + IntToHex(GetBValue(Farbenpanel));
end;

Da kommt [Error] Unit1.pas(49): Incompatible types: 'Cardinal' and 'TPanel'