当界面中的任意一个输录框有录入时，触发保存按钮变色怎么写代码

当界面中的任意一个输录框有录入时，触发保存按钮变色如何写代码？
当界面中的任意一个输录框有录入时，触发保存按钮变色如何写代码？
界面中有很多个输入框，EDIT等组件，任意一个有更改触发保存按钮
字体变成红色，谢谢
------解决思路----------------------
简单点的只需要edit控件的onchange事件控制，如果是多个控件的话，可以指定其他控件的onchange事件为edit1的onchange事件。

procedure TForm1.Edit1Change(Sender: TObject);

begin

  bitbtn1.Font.Color:=clRed;

end;

为了追求完美，还需要检测一下如果没有更改的时候变为原来的默认颜色，可以建立一个全局的变量来控制，目前还没有想到比较好的方法。
------解决思路----------------------
1、定义一个字符类型数据，保存各个Edit的源值。
2、当录入时，检查各Edit的当前值，与数组中的值，是否一样。不一样：Button字体变红
3、保存数据后（1）保存Edit值进数组（2）Button字体变黑