AdoSQL1.SQL.Text := Format('select * from YouTable where YouField like '%s %s %s',['Слава','сдает','сессию']);