condicionales en SQL

[[Bicho]]

Hola, claro que se puede hacer, de ésta manera:

Código Delphi [-]
cadena:='select nombre, area, turno from personal where area = :n_area and turno = :N_turno  order by nombre';
Query1.Sql.Clear;
query1.SQL.Add(cadena);
Query1.Sql.Parambyname('n_area').Asstring := ListboxArea.Items.Strings[ListboxArea.ItemIndex];
if RadioGroup.ItemIndex = 1 then 
Query1.Sql.Parambyname('n_turno').Asstring := 'A'
else Query1.Sql.Parambyname('n_turno').Asstring := 'B';
Query1.Open;

Es una idea, se puede hacer de otra manera, pero así me gusta más.

Saludos