coloco uma cor aparece outra!

procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.OnActiveControlChange := ColorControl;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Screen.OnActiveControlChange := nil;
end;

procedure TForm1.ColorControl(Sender: TObject);
var
  Cor: TColor;
  I: integer;
begin
   With Screen.ActiveForm do
      begin
      for I:= 0 to ComponentCount -1 do
         begin
         if Components[I] is TCustomEdit then
            begin
            Cor := clCream; // coloque a cor desejada.
            AtribuiProp(Components[I], ´Color´, IntToStr(Cor));
            end;
         end;
      end;
end;

procedure TForm1.AtribuiProp(Comp: TComponent; const PropName: string; Val: string);
var
  PInfo: PPropInfo;
begin
   PInfo := GetPropInfo(Comp.ClassInfo, PropName);
   if PInfo <> nil then
      begin
      // Trata conforme o tipo
      case PInfo^.Proptype^.Kind of
      tkInteger: SetOrdProp(Comp, PInfo, StrToInt(Val));
      tkChar, tkWChar: SetOrdProp(Comp, PInfo, ord(Val[1]));
      tkEnumeration: SetOrdProp(Comp, PInfo, GetEnumValue(PInfo^.PropType^, Val));
      tkFloat: SetFloatProp(Comp, PInfo, StrToFloat(Val));
      tkString, tkLString, tkWString: SetStrProp(Comp, PInfo, Val);
      tkVariant: SetVariantProp(Comp, PInfo, Val);
      tkInt64: SetInt64Prop(Comp, PInfo, StrToInt64(Val));
      else
      ShowMessage(´Este tipo não é suportado por este programa´);
      end;
      end
   else
      ShowMessage(´Propriedade não achada´);
end;