간단하게 Dataset Copy&Append 한번에 하기

var
  I: Integer;
  tmpTable: TFDMemTable;
begin
  tmpTable := TFDMemTable.Create(nil);
  
  try
    for I := 1 to 100 do begin
      FDQuery1.Close;
      FDQuery1.SQL.Clear;
      FDQuery1.SQL.Text := 'SELECT * FROM Table WHERE seq = :seq';
      FDQuery1.Params.ParamByName('seq').AsInteger := I;
      FDQuery1.Open;
      
      tmpTable.AppendData(FDQuery.Data); //따로 지정하지 않아도 Structure와 Record를 전부 복사해옵니다.
    end;
  finally
    tmpTable.Free;
  end;
end;