Código Delphi [-]while not query1->eof do begin with TButton->Create(Self) do ... ...
while not query1->eof do begin with TButton->Create(Self) do ... ...