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