[Лунтик-Некрофил]

Код:

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

Не могу сформулировать циклы для добавления по координатам кнопок . Например, чтобы следущая кнопка была на 30 пикселей ниже предыдущей. Как я понимаю, нужно добавить еще 4 цикла, для положения, ширины и высоты... Можете написать код или хотя бы намекнуть куда копать?

И еще - как сделать, чтоб при нажатии на выше созданные кнопки открывалась, например, другая форма?

Заранее спасибо, с ув. Лунтик.