[yusnerqui]

Creo que te hace falta algo como esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var i : byte;
begin
  with Panel1 do
   for i := 0 to ControlCount -1 do
     if Controls[i] is TDBEdit then
        TDBEdit(Controls[i]).Color := clBlue;
end;

Así recorres todos los controles del panel y cuando te encuentras con un TDBEdit lo pintas de Azul

Espero te sirva

Saludos.