calqulo Q_2 es un Componente QUErY. Solamente Cambia el EXECSQL
por un OPEN; Con eso vas a tener los datos en el Componente Query.
Código Delphi
[-]
q_2.SQL.Clear();
q_2.SQL.Add('select count(*) from personas where (personas.expediente = 1 and NOT (personas.tipo_parentesco = 2) and NOT(personas.tipo_parentesco= 3))');
q_2.ParamByName('p1').AsString := e_e.Text;
q_2.ParamByName('p2').AsString := 'TITULAR1';
q_2.ParamByName('p3').AsString :='TITULAR2';
q_2.OPEN;
While not Q_2.Eof do begin
Var1:=Q_2.FieldsByName('Nombre').asString;
...
...
Q_2.Next;
end;