Need for delphi USB example code

I've got problems regarding usb programming in delphi. I just started using this last week, and I'm really confused right now. Do you know any code written in delphi (delphi 7 suggestions would be very much appreciated) that I can use to take control of usb devices? I think it would be very helpful for you to share any delphi usb example code you know.
