private void btnOpen_Click(object sender, EventArgs e)
{
    if (bsOrders.Current == null)
        return;

    NorthwindDataSet.OrdersRow orderRow = 
        (NorthwindDataSet.OrdersRow)((DataRowView)bsOrders.Current).Row;
    using (frmCard cardForm = new frmCard(orderRow))
    {
        cardForm.ShowDialog();
    }
}

private void btnAdd_Click(object sender, EventArgs e)
{
    NorthwindDataSet.OrdersRow 
        orderRow = dsNorthwind.Orders.NewOrdersRow();
    using (frmCard cardForm = new frmCard(orderRow))
    {
        DialogResult res = cardForm.ShowDialog();
        ...
    }
}

 procedure  TOrdersReestrForm.btnOpenClick(Sender: TObject);
 begin 
     //т.к. в Delphi нельзя одновременно обращаться к нескольким строкам таблицы, то по сути в форму передается только текущая строка 
    TOrdersCardForm.OpenOrder(qryOrders);  //qryOrders потомок TDataset, содержащий список заказов  
 end ;
 procedure  TOrdersReestrForm.btnAddClick(Sender: TObject);
 begin 
    qryOrders.Append;  //добавляет новую строку и позиционируется на нее 
    TOrdersCardForm.OpenOrder(qryOrders);    
 end ;

 class   procedure  TOrdersCardForm.OpenOrder(qryOrder: TDataset);
 begin 
     with  TOrdersCardForm.Create(Application)  do 
     try 
        dsOrder.Dataset := qryOrder;   //dsOrder: TDatasource. Содержит ссылку на таблицу заказов. 
        qryDetails.MasterSource := dsOrder;
        qryDetails.MasterFields := 'OrderID';  //первичный ключ из таблицы Orders 
        qryDetails.DetailFields := 'OrderID';  //поле связи в таблице [Order Details] 
        
         //При открытии qryDetails будет содержать только строки из текущего заказа 
         //Также при добавлении новых строк значение поля OrderID будет заполняться автоматически  
        qryDetails.Open;

        ShowModal;  //открывается карточка в модальном режиме 
     finally 
        Free;  //Форма удаляется. Также удаляется и таблица, содержащая документостроки текущего заказа 
     end ;
 end ;