bed: made it a TComponent and switched to borland style.