select id, Article, name from Goods
select * from GoodProp where goodId=:id
procedure TForm1.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
ADOQuery2.Close;
ADOQuery2.Parameters[0].Value := ADOQuery1.FieldByName('id').Value;
ADOQuery2.Open;
end;