Prueba con este código:
Código Delphi
[-]
Qry_Consulta_TipoAcuerdo.Parameters.ParamByName('pPais').VAlue := Table1Campo.AsString;
Table1 debe ser la tabla que tiene el dato asignado al DBLookup y
campo el dato asignado al DBLookup, por ejemplo si la tabla se llama PAISES y el campo PAIS entonces sería:
Código Delphi
[-]
Qry_Consulta_TipoAcuerdo.Parameters.ParamByName('pPais').VAlue := PAISESPAIS.AsString;
Espero haberme explicado.
Saludos