asistente de SQL

[atrus]

Hola a todos,
estoy haciendo un asistente automatico de consultas sql como el que tiene el acces, pero no se me aocurre como hacerlo en delphi, mi pregunta es si para hacer inner joins automaticos hay alguna manera de detectar las relaciones que hau entre tablas con el delphi?
tengo dos listbox con multiselect, uno con las tablas y el otro con los fields de estas, y voy montando la consulta a medida que se va pulsando en ellas, no se si es el mejor planteamiento pero es lo que se me ha ocurrido.

graicas a todos por vuestro tiempo.