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