StrecthDraw

[MarkSE]

Guten Tag Leute,
etwas mache ich sicherlich falsch und suche seit Tagen im Forum nach einer Lösung und fand viele Vorschläge, leider ohne Erfolg.
Bitte schaut Euch meine kleine Procedure an, warum bleibt das Papier immer weiß?
Vielen Dank für Eure Hilfe im Voraus.
(Ich benutze Delphi 7 Studio Professional, XP SPK3 , DELL LaserJet 1100)

Procedure PrintJPG;
var
lmgJPG: TJPEGImage;
b:TBitMap;
x:Trect;
begin
// JPEG-Bild bild1.jpg ist in Graustufen und 303 x 87 dpi groß
Printer.PrinterIndex := 0;
Printer.BeginDoc;
SetMapMode ( Printer.Canvas.Handle, MM_LOMETRIC); // auf mm einstellen

lmgJPG:= TJPEGImage.Create;
lmgJPG.LoadFromFile('c:\test\bild1.jpg');
b:= TBitmap.Create;
b.Assign(lmgJPG); // BildInfo steckt doch jetzt in b oder?
try
x.Left:=20; // auch 0, 0, 302, 86 ausprobiert, also ohne Stetch
x.Right:=500; // immer bleibt das Papier weiß
x.Top:=20;
x.Bottom:=500;

printer.canvas.stretchdraw(x,b); // Das Papier bleibt weiß
finally
FreeAndNil(b);
FreeAndNil(lmgJPG);
end;
Printer.EndDoc;
end;