mit canvas.textout erstellter text soll im nächsten ...

[Calimero]

Ich habe folgendes Problem:

Ich erstelle ein Timage namens Modimage (640 x 480) und zeichne dort ein text rein.
diese bild übergebe ich ein anderes bild bez. zeichne.
diese bild ist nur 320 x 200 gross. Der Text sieht aber genauso aus wie in Modimage. Er sollte doch eigentlich auch die größe ändern oder ?
was mach ich falsch ?

Code:
modimage.width := 640;
modimage.height := 480;
image7.width := 320;
image7.height := 200;
image7.stretch := true;

modimage.Canvas.Brush.Style := bsClear;
modimage.Picture.Bitmap.Canvas.TextOut(0,0,'hier steht text');
image7.Canvas.Draw(0,0, modimage.Picture.bitmap);