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