procedure TForm1.Button1Click(Sender: TObject);
begin
  edit2.text :=  inttohex(getRvalue(edit1.color),2); // FF
  edit3.text :=  inttohex(getGvalue(edit1.color),2); // 00 
  edit4.text :=  inttohex(getBvalue(edit1.color),2); // 33
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
    if ColorDialog1.Execute then
    begin
       edit1.Color := ColorDialog1.Color;
    end;
end;