Por favor ayuda con comando Select

[cvlaso77]

Disculpen al hacer un copi desde el word se juntaron todos los caracteres
aca va de nuevo ordenado
Amigos
Primer muchas gracias por sus rápidas respuestas
Yo soy de la década de los 80 donde programábamos en turbopascal con el DEC2020 de la Univ. En esos días habían pocos a quien hacerles consultas. Me parece genial esto de los foros y post. Los felicito por su dedicación y muchas gracias.
Perdón por la lata.
Al grano
Uno de mis problemas era que tenia 2 tablas en distintas carpetas
Una en, C:\Documents and Settings\cvl\Escritorio\PRY_CDT_0
Y otra en, C:\Archivos de programa\Archivos comunes\Borland Shared\Data, esto por que en algún momento el compilador me reclamó que no existía la tabla y la copie a esa carpeta.
Pregunta. Alguien me puede como reasigno la ruta para no tener que usar un FROM tan largo, gracias
Después de arreglar la ruta de la tabla…
Lo que me resultó de las mil y unas pruebas :
La rutina que me funciona ok,con todos los campos es :

Datasource1.Dataset := Query1;
Query1.SQL.Clear;
Query1.Active := False ;
With Query1.Sql Do
Begin
Clear ;
Add('SELECT DISTINCT ESPECIALIDAD,DIA_SEMANA,STD_ATENCION,NOMBRES,APELLIDOS');
Add ('FROM "C:\Documents and Settings\cvl\Escritorio\PRY_CDT_0\BD HRS ATENCION.DB"')
End ;
Query1.Active := True ;

Los nombres de los campos con espacios en blanco le dan problemas al compilador, y aparece el mensaje de error.
Cuando pongo el campo entre “comillas” dobles la tabla de resultado repite este dato en toda la columna y no carga los datos.
Los add no son problema me funcionan ok.

Mi trabajo consiste en hacer un programa para filtrar una base de datos de un hospital.
Igual por si a alguien le sirve transcribo la rutina completa en la que he parametrizado los datos del Select para ejecutarlo a partir de unos listbox que he creado, con los onclick de los listbox le paso los strings a los Edit.text y luego ejecuto el query.
Esto que transcribo lo probé y funciona super ok
Solo me falta parametrizar la opción ascendente descendente.

With Query1.Sql Do
Begin
Clear ;
Add('SELECT DISTINCT '+Edit1.text+'');
Add ('FROM "C:\Documents and Settings\cvl\Escritorio\PRY_CDT_0\BD HRS ATENCION.DB"');
Add('WHERE');
Add(' ( '+Edit3.text+' = "'+Edit4.text+'") ');
Add('ORDER BY '+Edit2.text+' ASC');
End ;
Como soy nuevo en el foro por favor díganme si vale subir después como post esta rutina con la opción (asc, des), completa, igual no se si se hace de la misma manera que cuando un pregunta algo..
Muchas Gracias a todos
Saludos