Drucken: Größe von TImage übernehmen?

[mlspider]

Ich drucke mir den Inhalt von TImage wie folgt aus:

Delphi-Quellcode:

procedure TVorschau2.Button1Click(Sender: TObject);
var rect : TRect;
begin
 if PrinterSetupDialog1.Execute then begin
 with printer.canvas do begin
  Printer.BeginDoc;
  rect:=Bounds(-10,-10,printer.pagewidth div 2,printer.pageheight div 2);
  StretchDraw(Rect,image1.picture.Graphic);
  Printer.EndDoc;
  end;
end;

Leider wird die Größe von Timage auf dem Druckergebnis nicht beibehalten. Wie könnte man dieses Problem lösen?