ObjectPascal: Filtern und Sortieren von Feldwerten einer Datenbank

Guten Abend,

ich habe einen Filter für eine Datenmenge erstellt wie folgt:

procedure TfilterForm.filterTextBoxChange(Sender: TObject);
var
  strSQL: String;
  ascSQL: String;
begin
  ascSQL:='SELECT * FROM lager ORDER BY Durchmesser ASC';
  
  case filterForm.filterComboBox.ItemIndex of
  0: if filterTextBox.Text='' then begin
        strSQL:= ascSQL;
     end else begin
        strSQL:= 'SELECT * FROM lager WHERE Gegenstand = ' + QuotedStr(filterTextBox.Text) + 'ORDER BY Durchmesser ASC';
     end;
  1: if filterTextBox.Text='' then begin
        strSQL:=ascSQL;
     end else begin
        strSQL:= 'SELECT * FROM lager WHERE Durchmesser = ' + filterTextBox.Text + 'ORDER BY NR ASC'; // Fehler
     end;
  2: if filterTextBox.Text ='' then
     begin
        strSQL:= ascSQL;
     end else begin
        strSQL:= 'SELECT * FROM lager WHERE NR = ' + filterTextBox.Text + 'ORDER BY Durchmesser ASC'; // Fehler
     end;
  3: if filterTextBox.Text ='' then
     begin
        strSQL:= ascSQL;
     end else begin
        strSQL:= 'SELECT * FROM lager WHERE Segmenttyp = ' + QuotedStr(filterTextBox.Text) + 'ORDER BY Durchmesser ASC';
     end;
  4: if filterTextBox.Text ='' then begin
        strSQL:= ascSQL;
     end else begin
        strSQL:= 'SELECT * FROM lager WHERE Ort = ' + QuotedStr(filterTextBox.Text) + ' ORDER BY Durchmesser ASC';
     end;
  5: if filterTextBox.Text ='' then begin
        strSQL:= ascSQL;
     end else begin
        strSQL:= 'SELECT * FROM lager WHERE Fahrer = ' + QuotedStr(filterTextBox.Text) + ' ORDER BY Durchmesser ASC';
     end;
  6: if filterTextBox.Text ='' then begin
        strSQL:= ascSQL;
     end else begin
        strSQL:= 'SELECT * FROM lager WHERE Erstellt = ' + QuotedStr(filterTextBox.Text) + 'ORDER BY Durchmesser ASC';
     end;
  7: if filterTextBox.Text ='' then begin
        strSQL:= ascSQL;
     end else begin
        strSQL:= 'SELECT * FROM lager WHERE Bearbeitet = ' + QuotedStr(filterTextBox.Text) + 'ORDER BY Durchmesser ASC';
     end;
  8: if filterTextBox.Text ='' then begin
        strSQL:= ascSQL;
     end  else begin
        strSQL:= 'SELECT * FROM lager WHERE NeuBelegt = ' + QuotedStr(filterTextBox.Text) + 'ORDER BY Durchmesser ASC';
     end;
  end;

  Form1.bestandQuery.Close;

  try
    Form1.bestandQuery.SQL.Clear;
    Form1.bestandQuery.SQL.Text:= strSQL;
    Form1.bestandQuery.Open;
  except
  end;

  Form1.bestandQuery.SQL.Clear;
  Form1.bestandQuery.SQL.Text:=ascSQL;
  Form1.bestandQuery.Open;
  Form1.RxDBGrid1.Refresh;
end;

Das Ergebnis sieht auszugsweise so aus :

Durchmesser NR
------------------------------
90          4
90          1
90          3
90          2     

Für den Anwender wäre es jetzt schön, wenn die Spalte 'NR' sortiert dargestellt werden würde.

Hier gibt es eine Fehlermeldung.

SQLite3Connection1: unrecognized token:"3ORDER"

Ich denke dass mein SQL-String falsch ist.

Kann da mal bitte jemand nachhelfen ??

MfG Danke...........