Anyone willing to share a sample program with delphi Wiimote

I am a novice programmer delphi

thank you