طباعة صورة موجودة في image

[format82]

السلام عليكم
كيف استطيع طباعة صورة موجودة في اداة image من النوع jpg
ولكم جزيل الشكر

[kachwahed]

وعليكم السلام ورحمة الله
uses
Graphics, Printers,
JPEG; { For JPEG image support }
// ...

{ With scaling support }
procedure PrintFile(sImageFileName: string);
var
TempImage: TImage;
begin
try
TempImage := TImage.Create;
with TempImage do begin
Visible := False;
Stretch := False;
with Picture do begin
AutoSize := True; { So the component will have the right size }
LoadFromFile(sImageFileName);
AutoSize := False;
with Printer do begin
BeginDoc;
if Height > Canvas.Height then
Height := Canvas.Height;
if Width > Canvas.Width then
Width := Canvas.Width;
EndDoc;
end;
end;
end;
finally
TempImage.Free;
end;
end;
...

[format82]

شكرا
جزاك الله كل خير
ياريت لو توضح اكثر بمثال