实现模糊查询时出错，提示无效字符
delphi代码如下：
　procedure TForm1.Edit1Change(Sender: TObject);
begin
ADOQuery1.SQL.Text:= 'SELECT * FROM tstuinfo WHERE xuehao like '+QuotedStr(Edit1.Text)+ '% ';
ADOQuery1.Open;
if ADOQuery1.IsEmpty then
begin
ShowMessage( '没有找到 ');
Exit;
end;
ListBox1.Clear;
while not ADOQuery1.Eof do
begin
ListBox1.Items.Add(ADOQuery1.FieldByName( 'xuehao ').AsString);
ADOQuery1.Next;
end;


end;

[解决办法]
我的写法有问题吗？如果是数字类型的，无法实现模糊查询。