[FreeUser]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if ColorDialog1.Execute
then
 begin
statictext1.Font.Color:=colordialog1.Color;
 end;
end;

Не работает Т.е. не меняется цвет шрифта.