1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
var
  R,
  G,
  B: String;
  HexWert: String;
begin
  R := IntToHex(StrToInt(Edit1.Text),2);  // für Rot-Wert - die 2 steht für die Stellen (z.B. 0C)
  G := IntToHex(StrToInt(Edit2.Text),2);  // für Grün-Wert (ja! es ist grün NICHT gelb!!!)
  B := IntToHex(StrToInt(Edit3.Text),2);  // für Blau-Wert
  HexWert := R+G+B;
  ShowMessage(Hexwert);
end;