Crear Tedit en tiempo de ejecucion

[tocomi]

Buenas Tardes, tengo una consulta, necesito crear varios tedit y tlabel (supongo que la forma sera parecida) en tiempo de ejecucion, la cantidad esta determinada por los registros en una base de datos que es definida por el usuario, ya revise el foro por todos lados y busque en google (que curiosamente me mostro links al foro) y tengo la siguiente rutina

Código Delphi [-]
With Query do
    Begin
    Active:=False;
    Sql.clear;
    Sql.Add( consulta para saber cuantos edit se necesitan);
    Active:=true // funciona sin problemas, indica los registros que de se necesitan y los datos)
    While not eof do
      with TLabel.Create(Form) do
         begin  // recorre el while sin problemas y no da ningun mensaje de error
         Name:='Lbl_'+fieldbyname('nro').asstring;
         Caption:=fieldbyname('titulo').asstring;
         Left:= 8;
         Top:= 25*recordcount;  //Alineacion horizontal
         Width:= 200;
      end;
      next;
   end;
   Active:=False;
end;

La pregunta es que es lo que estoy haciendo mal?????