الخطأ invalid column name في استعلام sql

[rezki_z]

لقد عثرت على نصف الاجابة لكن بقي لي المشكل في order by

كود :

else if ListFiltr1.ItemIndex = 2 then    ADODataSet1.CommandText :=      'select [EmployeeID],LastName,FirstName,Title,City from Employees where '      + ListeChampTxt.Items[ListeChampTxt.ItemIndex] + ' like ' +      quotedstr(TxtCherche.text) + '%" order by ' + ListTrie.Items[ListTrie.ItemIndex]      + TxtTrie  else if ListFiltr1.ItemIndex = 3 then    ADODataSet1.CommandText :=      'select [EmployeeID],LastName,FirstName,Title,City from Employees where '      + ListeChampTxt.Items[ListeChampTxt.ItemIndex] + ' like "%' +      quotedstr(TxtCherche.text) + '" order by ' + ListTrie.Items[ListTrie.ItemIndex]      + TxtTrie  else    ADODataSet1.CommandText :=      'select [EmployeeID],LastName,FirstName,Title,City from Employees where '      + ListeChampTxt.Items[ListeChampTxt.ItemIndex] + ' like "%' +      quotedstr(TxtCherche.text) + '%" order by ' + ListTrie.Items[ListTrie.ItemIndex]      + TxtTrie;  ADODataSet1.Active := True;  ADODataSet1.Requery(); end;