Draw curved arrow in delphi?

I want to draw a curved right arrow at TCanvas as shape in Microsoft Word. Does anybody know an working method? ...