Imprimer un Timage

uses printers;

{....}

procedure TForm1.Button1Click(Sender: TObject);
var ScaleX, ScaleY :Integer;
RR :TRect;
begin
with Printer do
begin
BeginDoc;
try
ScaleX := GetDeviceCaps(Handle,logPixelsX) div PixelsPerInch;
ScaleY := GetDeviceCaps(Handle,logPixelsY) div PixelsPerInch;

RR := Rect(0,0,Image1.picture.width * scaleX, Image1.Picture.Height * ScaleY);
Canvas.StretchDraw(RR,Image1.Picture.Graphic);

finally
EndDoc;
end;
end;
end;