[Страдалецъ]

Код:

var
  Button: TButton;
  Y: Integer;
begin
adotable1.first; 
Y := 50; 
for i:=1 to adotable1.RecordCount do begin
  Button:=TButton.Create(Self);
  Button.Parent := Self;
  Button.Left := 50;
  Button.Top := Y;
  Button.Width := 50;
  Button.Height := 50;
  Button.Caption:=adotable1.Fields[2].AsString ;
  adotable1.next; 
  Inc(Y,30);
end;
end;