procedure TfrmMain.LoadMemData(AMemData: TDataSet);
var
  i, j: Integer;
begin
  AMemData.Close;

  AMemData.DisableControls;
  AMemData.Fields.Clear;
  AMemData.FieldDefs.Clear;

  for i := 0 to grdMainGridDBTableView.ColumnCount - 1 do
  begin
    CreateField(AMemData, grdMainGridDBTableView.Columns[i].DataBinding.FieldName, grdMainGridDBTableView.Columns[i].DataBinding.Field.DataType);
  end;

  AMemData.Open;
  for j := 0 to grdMainGridDBTableView.DataController.FilteredRecordCount - 1 do
  begin
    AMemData.Append;
    for i := 0 to grdMainGridDBTableView.ColumnCount - 1 do
    begin
      AMemData.FieldByName(grdMainGridDBTableView.Columns[i].DataBinding.FieldName).Value := grdMainGridDBTableView.DataController.Values[grdMainGridDBTableView.DataController.FilteredRecordIndex[j], grdMainGridDBTableView.Columns[i].Index];

    end;
    AMemData.Post;
  end;

  AMemData.EnableControls;
end;