delphi, при щелчке по пустой форме, создается кнопка, при щелчке на кнопку, она становится цветная

[KaZaaM]

delphi, при щелчке по пустой форме, создается кнопка, при щелчке на кнопку, она становится цветная....

чет не могу разобраться как это сделать, знаю несколько строк, но не могу их связать с общим кодом

типа TButton1.Color:=CCYellow; кнопка будет желтая

[vovk]

............ 
 private
    procedure Btn_Click(Sender: TObject);
    { Private declarations }
................

procedure TForm1.Btn_Click(Sender: TObject);
begin
Self.Color:=strtoint(copy((sender as Tbutton).Caption,4,length((sender as Tbutton).Caption)-3));
end;

procedure TForm1.FormDblClick(Sender: TObject);
var
btn:Tbutton;
begin
 Randomize;
 btn:=TButton.Create(Self);
 with btn do
 begin
   Width:=100;
   Height:=30;
   Left:=Random((sender as TForm).ClientWidth-100);
   Top:=Random((sender as TForm).ClientHeight-30);
   Caption:='Btn'+IntToStr(random(98989));
   Parent:= (sender as TForm);
   ParentFont:=false;
   OnClick:=Btn_Click;
 end;
end;

у кнопки нет свойста color

[ex.cluz]

Хм..Можно вместо кнопки панельку создавать, у нее color есть.

[uraura]

+ за панельку
еще можно менять цвет шрифта:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
bitbtn1.Font.Color:=clGreen; //clGreen-какой цвет шрифта но не кнопки
end;
procedure TForm51.FormClick(Sender: TObject);
begin
bitbtn1.Visible:=true;//проявляем кнопку до этого разумеется false
end;

[KaZaaM]

всем огромное спасибо, и подскажите как + добавить в репутацию?

[ex.cluz]

На весах щелкнуть