好像是没有刷新。请问怎么改？(100分)

我自己写了一个控件继承了TCustomEdit.添加了一个功能：在Edit右边内部添加了一块按钮。出现了
这样一些问题：
1、内部按钮本来是填充有颜色，但是当Edit获得焦点（点进去）时，填充色就变为白色了。
2、当我动态赋值的时候。里面值不会变化必须获得焦点才能看到（点进去）.
procedure TForm1.Button3Click(Sender: TObject);
begin
I := I + 1;
Self.Edit1.Text := IntToStr(I);
Self.SpreadEdit1.Text := IntToStr(I);
end;
请问怎么解决?

有没有知道？