Hola de nuevo.
Ahora entiendo lo que comentas del Alias...
En el evento OnShow del ejemplo que te adjunte, cambia:
Código Delphi
[-]Query1.DatabaseName:= ExtractFilePath(Application.ExeName);
Por:
Código Delphi
[-]Query1.DatabaseName:= 'NOMBRE_DE_TU_ALIAS';
O como una solución más completa, se puede agregar otro argumento a la función:
Código Delphi
[-]
function QueryNearest(AQuery: TQuery; Alias, Tabla, Campo: string; Dato: Variant): Boolean;
begin
AQuery.DatabaseName:= Alias;
AQuery.Close;
AQuery.SQL.Clear;
AQuery.SQL.Add('SELECT * FROM ' + Tabla);
AQuery.SQL.Add('WHERE '+Campo+' LIKE :DATO || ''%''');
AQuery.ParamByName('DATO').Value:= Dato;
AQuery.Open;
Result:= not AQuery.IsEmpty;
end;
Ejemplo de llamada con la tabla Country que viene con Delphi:
Código Delphi
[-]
QueryNearest(Query1, 'DBDEMOS', 'COUNTRY', 'NAME', Edit1.Text);
Saludos.