Solo debes agregar "and pais = "LoQueDigaElCombo"
El SQL quedaría así:
Código SQL
[-]select Area, Pais from Area
where
Area=:ParametroArea and
Pais=:ParametroPais
Código Delphi
[-] with Temp do
begin
Temp.close;
Temp.sql.Clear;
Temp.sql.Add('select Area,Pais from Area');
Temp.sql.Add('where Area = '+QuotedStr(EDAreaBuscar.Text));
Temp.sql.Add('and pais = '+QuotedStr(CBPaisBuscarText));
Temp.open
end;
if not Temp.IsEmpty then
raise exception.Create('Registro Existe');
end;