[Enan0]

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.ExecSQL;
 q_2.OPEN;

While not Q_2.Eof do begin
    Var1:=Q_2.FieldsByName('Nombre').asString;
    ...
    ...
    Q_2.Next;
end;