Tené cuidado, que vas a terminar creando 1000 botones y dejarás la máquina sin recursos!
Código Delphi
[-]
PosY := 10;
while not query1.eof do
begin
with TButton.Create(Self) do
begin
Caption := query1Nombre.AsString;
OnClick := AlgunMetodo;
Parent := Self;
Top := PosY;
PosY := PosY + Height + 5;
end;
query1.Next;
end;
Hasta luego.