select * from book WHERE автор LIKE %:avtor%
DataModule1.FindQuery.Parameters.ParamByName('avto r').Value:='%'+Trim(FindavtorEdit.Text)+'%';