[*Caro*]

Hola fenixjes, si te he entendido bien deberia ser asi.

Código Delphi [-]
var
  i:Integer;
  boton:TButton;
............
  i:=0;
  AdoQuery1.First;
  while not(AdoQuery1.EOF) do
   begin
     with boton do
       begin
         boton.Parent:=FColegio;
         Left := 10+i;
         Top := 150;
         Width := 75;
         Height := 25;
         Caption := AdoQuery1.FieldByName('descripcion').AsString;
       end;
      i:=Width+20;
     AdoQuery1.Next;
   end;

Saluditos