[alej.villa]

Buenas noches amigos foreros

esta vez me dirijo a ustedes para que juntos búsquemos una solución.

Tengo dos consultas separadas en donde consulto (valga la redundancia) un dato en común que es la cédula del empleado, tengo dos tablas llamadas empleados y turno_temporal. La tabla empleados almacena todos los datos básicos de los empleados (cédula, nombre, apellidos, sexo, turno, etc.) y la tabla turno_temporal almacena (cédula, turno_temp, fecha_ini, fecha_fin, estado). siento este último para saber si está activo o inactivo.

bien tengo la primera consulta sql en donde selecciono la cédula del empleado según el turno de trabajo que es pasado por un parámetro y el resultado de la consulta almacenado en un arrreglo dinámico string.

Código Delphi [-]
  begin
  dm.Query.Close;
  dm.Query.SQL.Clear;
  dm.Query.SQL.Add('Select cedula From empleados');
  dm.Query.SQL.Add('Where turno=:xfiltro');
  DM.Query.Parameters.ParamByName('xfiltro').DataType:=ftString;
  dm.Query.Parameters.ParamByName('xfiltro').Value:=ComboBox1.Text; //aquí paso por parámetro el turno
  dm.Query.Open;
    while not dm.Query.Eof do
    Begin
        SetLength(miArreglo, n+1);
        miArreglo[n]:=dm.Query.fieldbyname('cedula').AsString;
        Inc(n);
        dm.Query.Next;
      end;
end;

bien una vez realizada la primera consulta, sigo con la segunda consulta cargandola en un arreglo diferente de esta manera

Código Delphi [-]
  begin
  dm.Query.Close;
  dm.Query.SQL.Clear;
  dm.Query.SQL.Add('Select cedula From Turno_Temporal');
  dm.Query.SQL.Add('Where estado =:estado');
  dm.Query.SQL.Add('AND turno_temp = :turno');
  DM.Query.Parameters.ParamByName('estado').DataType:=ftString;
  dm.Query.Parameters.ParamByName('estado').Value:='activo';
  DM.Query.Parameters.ParamByName('turno').DataType:=ftString;
  DM.Query.Parameters.ParamByName('turno').Value:=ComboBox1.Text;
  dm.Query.Open;
    while not dm.Query.Eof do
      Begin
        SetLength(ArregloTurno, n+1);
        ArregloTurno[n]:=dm.Query.fieldbyname('cedula').AsString;
        Inc(n);
        dm.Query.Next;
      end;
  end;

Ahora bien mi motivo principal o pregunta es
¿Cómo puedo hacer para que el resultado de la segunda consulta se añada al arreglo de la primera consulta sin borrarme/modificarme algún dato?
intente lo siguiente pero me da un resultado que no es el esperado.
hice una consulta en donde me uniera todos las cedulas según el turno seleccionado de esta manera

Código Delphi [-]
  begin
  dm.Query.Close;
  dm.Query.SQL.Clear;
  dm.Query.SQL.Add('Select a.cedula, b.cedula From Empleados a, Turno_Temporal b');
  dm.Query.SQL.Add('Where a.turno = :turno and ((b.turno_temp = :turno) and (b.estado =:estado))');
  DM.Query.Parameters.ParamByName('estado').DataType:=ftString;
  dm.Query.Parameters.ParamByName('estado').Value:='activo';
  DM.Query.Parameters.ParamByName('turno').DataType:=ftString;
  DM.Query.Parameters.ParamByName('turno').Value:=ComboBox1.Text;
  dm.Query.Open;
    while not dm.Query.Eof do
      Begin
        SetLength(Arreglo, n+1);
        Arreglo[n]:=dm.Query.fieldbyname('cedula').AsString;
        Inc(n);
        dm.Query.Next;
      end;
  end;

pero la cantidad de columnas afectadas es de 2000 cuando deberian ser no mayor a 200

Espero haberme explicado bien y puedan ayudarme con esta sencilla consultilla
Gracias de antemano!