[TOJluK]

С ADO давно не работаю, значит используй VALUE вместо AsString, возможно даже придется так:

Код:

DM4.ADOQuery_ObSP.Parameters.ParamByName('w').Value:= QuotedSTR(Edit1.Text + '%');

% - любые символы