controlbar1.EdgeBorders := [];