verzögerte Suche in Textfeld

[ksh]

mehr oder weniger!

wenn ich jetzt nach dem Nachnamen suchen lasse, funkt alles. Nur bei Zahlen regt er sich jetzt auf... und sagt, dass er keinen Standardwert hat.

Delphi-Quellcode:

procedure TSuchDialog.PersNrKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    // Verbindung zur gleichen DB initialisieren
    // Bestehende Datenbankanbindung trennen
    if SuchDialog.ADOConnectionSuch.Connected then
      SuchDialog.ADOConnectionSuch.Connected := False;
    // gleichen ConnectionString initialisieren
    SuchDialog.ADOConnectionSuch.ConnectionString := Eingabe.ADOConnection.ConnectionString;
    with SuchDialog.ADOQuerySuch do
    begin
      with SQL do
      begin
        Clear;
        Add('SELECT * FROM '+ DialogTabelle.TabellenComboBox.Text);
        if SuchDialog.BPersNr.Checked then
        begin
            Add('WHERE PersNr LIKE ');
            Add('"'+SuchDialog.PersNr.Text+'%"');
        end;
      end;
      Open;
      SuchDialog.Label1.Caption:= IntToStr(RecordCount)+' Personen gefunden:';
    end;
end;