Canvas.TextOut mit komischen Zeichen

[Flips]

Hi.

Habe folgendes Problem:
Über folgenden Code werden Zahlen auf ein TImage geschrieben:

Delphi-Quellcode:

for i := 1 to SpinEdit1.Value do
  Image1.Canvas.TextOut((i*3)+50,Image1.Height-40,IntToStr(i));

Ist ja recht simpel aber irgendwie kommen da nur komische Zeichen raus. Ohne die Schleife geht es aber mit der Schleife kommt folgendes raus:
http://owned.ow.funpic.de/dp.PNG

Warum?