JPEG-drucken - unterscheid von Delphi5 zu Delphi2006 .WIn32

[Mandi Nice]

Hallöchen

Bin gerade dabei ein Programm zu schreiben welches JPEG ( Photos von Digitalkameras ) drucken soll.

Unter Delphi 5 funktioniert folgender Code einwandfrei :

Delphi-Quellcode:

procedure TfrmPumpenDatenBank.Button1Click(Sender: TObject);
var ARect :TRect;
   Image1 :TImage;
begin
     with Printer do begin
         BeginDoc;

         SetMapMode (Canvas.Handle,MM_LOMETRIC);

         Image1 := TImage.Create(nil);
         Image1.Picture.LoadFromFile('IM000053.JPG');

         ARect.Left := 200;    ARect.Right := 1700;      ARect.Top := -200;    ARect.Bottom := -1200;
         Canvas.StretchDraw(ARect, Image1.Picture.Graphic);

         EndDoc;
     end;
end;

Aber unter Delphi 2006 druckt er nichts ???

Kann mir da jemand einen Tip geben.
Vielen Dank
hmg (hat mich gfreut )
Mandi

[edit=alcaeus]Delphi-Tags gesetzt. Mfg, alcaeus[/edit]