Agregar Nombre de campos en un array de DBText

[CottonMouth]

Hola a todos !Como les va? bueno les explico tengo que crear una array de DbText y que a medida que se vallan creando contengan un nombre de campo distinto segun la tabla, como debo hacer?. Hasta ahora esto es lo que hice:

 
for i:=1 to 6 do
  begin
   Campo[i]:=TDBText.Create(self);
      with  Campo[i] do
     begin
       DataSource:=DataSource1;
       Width := 193; // ancho
       Height := 21; //alto
       Left :=32;//posicion X
       Top := i* ConstHeight; //posicion Y
       Parent := PanelDatos; //en donde se dibujan los botones
       Visible := True; //para que se vean
       end;
     end;

intente con un if, con un case y la variable i y el datafield asignando le el nombre del campo pero no me funciono porque no me muestra nada obviamente lo estoy haciendo mal.si me pueden ayudar con esto se los agradeseria mucho!! Seguro debe ser una pavada para ustedes pero como soy novata no se me ocurre.Desde ya gracias!! besotes a todos!!

luly