Código Delphi [-]'select * from tabla1 where registro1 like '+quotedstr('%'+edit1.text+'%')
'select * from tabla1 where registro1 like '+quotedstr('%'+edit1.text+'%')