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

当界面中的任意一个输录框有录入时,触发保存按钮变色如何写代码?
当界面中的任意一个输录框有录入时,触发保存按钮变色如何写代码?
界面中有很多个输入框,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字体变黑