Implementando función

[wilcg]

Amigos del foro, estoy trabajando en una función que me permita manipular propiedades de controles diferentes como

TEdit
TcxCurrencyEdit
TsDateEdit

y no me esta resultando por eso necesito de ustedes aquí La función

Código Delphi [-]
procedure OnOfReadOnly(Ctrls: array of TWinControl; const Enabled: Boolean);
var
  i: Integer;
begin
  for i:= Low(Ctrls) to High(Ctrls) do
  begin
    // TEdit
    if Ctrls[i] is TEdit then
    begin
      if Enabled = True then
      begin
        Ctrls[i].Color := $00FEEAD3;
        Ctrls[i].ReadOnly := Enabled;
      end else
      begin
        Ctrls[i].Color := clWhite;
        Ctrls[i].ReadOnly := Enabled;
      end;
    end else
    begin
    // TcxCurrencyEdit
    if Ctrls[i] is TcxCurrencyEdit then
    begin
      // ....

    end else
    begin
    // TsDateEdit
    if Ctrls[i] is TsDateEdit then
    begin
      // ....

    end;
    end;
    end;
  end;
end;

y para utilizarlo sería así...

Código Delphi [-]
procedure TFProductos.Button1Click(Sender: TObject);
begin
  OnOfReadOnly([Edit1, cxCurrencyEdit1, TsDateEdit],True);
end;

Lo que quiero es cambiar el color del edit o el cxCurrencyEdit, etc y protegerlo contra escritura activando la propiedad
ReadOnly mediante una función.