var
tempstr:string ;
mSearchstr:string;
....
beign
tempstr:='select * from tablename where feild like '''+'%'+mSearchstr+'%'+'''';
with Query do
begin
Close;
SQL.Clear;
SQL.Add(tempstr);
try
if IsOpen then
open
else
ExecSql;
except on E:EDataBaseError do
begin
showmessage(E.message);
exit;
end;
end;
end;
end;