rundes edit

[toms]

 SetWindowRgn(Edit1.Handle, CreateRoundRectRgn(2, 2, Edit1.Width - 2, Edit1.Height - 2, 15, 15), True);