Te falta decir con que componentes te conectas y a qué base de datos. Access, Dbase, Paradox?
Código SQL
[-]
busqueda := t_pais.Text;
QConsulta.Close;
QConsulta.SQL.Text:='Select Nombre from paises where Nombres = ' +QuotedStr(Edit1.Text);
QConsulta.Open;
result :=QConsulta.fields[0].asstring;
Lo que te pongo puede ser una solución fácil.
Un Saludo.