Hola, intenta así:
Código Delphi
[-]2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <= +QuotedStr(Edit1.text)+';
ó
Código Delphi
[-]2:buscar:='Select codart,desart,pvpart,stkart From articulo.DB Where stkart <= '+QuotedStr(Edit1.text)+'';
Saludos.