Заполнить TDataSet данными из промежуточной таблицы GRID

var
    FinansOtchetST: TDataSet;
    iRow, qRow : integer;
begin
     qRow := Otchet.TableGrid1.RowCount - 1;

        for iRow := 0 to qRow do
        begin
             FinansOtchetST.Insert;
             FinansOtchetST.FieldByName('StatusTranzakcii').AsString := Otchet.TableGrid1.Cells[0,iRow];

             FinansOtchetST.Next;
          end;