zum Beispiel
With dm_main.Query_radix_alles do begin
Close;
Sql.Clear;
Sql_String := 'Select * ';
Sql_String := Sql_String + 'from Radix ';
Sql_String := Sql_String + 'Where Ordner_nr = ';
Sql_String := Sql_String + IntToStr(Ordner_Nr);
Sql_String := Sql_String + ' Order By '+ get_index(CBIndex.itemindex);
Sql.Add(Sql_String);
open;
end;