var
RecordAffected: integer;
rs: _Recordset;
begin
qry2.SQL.Text := 'exec xx';
qry2.Open;
rs := qry2.NextRecordset(RecordAffected);
if rs.State<>0 then
begin
ds.Recordset := rs;
while not ds.EOF do
begin
end;
end;
end;