{The Procedure}
Procedure FindColorProcedure (Sender: TObject);
begin
TColorPicker1.Pick
ColorByte.text := IntToStr({what goes here?});
end;
{form information}
FindColorButton := TButton.Create(frmDesign); //Find Color Button
FindColorButton.Parent := TabPages[2];
FindColorButton.Left := 300;
FindColorButton.Top := 140;
FindColorButton.name :='FindColor';
FindColorButton.Caption :='Find Color';
FindColorButton.Width := 100;
FindColorButton.OnClick := @FindColorProcedure;
TColorPicker1 := TColorPicker.Create(frmDesign); //TColorPicker
ColorByte := TEdit.Create(frmDesign); //Color Edit Box
ColorByte.Parent := TabPages[2];
ColorByte.Width := 100;
ColorByte.Top := 400;
ColorByte.left := 300;