Se si scrivo in questo modo mi dà errore :

codice:
 
var
    CurrentPrinter: TPrinter;
 const
   Rect:Trect=(left:0;Top:0;Right:200;Botto
m:200);

  begin
    CurrentPrinter := Printer;
    ImgFoglioRettangolo.Bitmap.BoundsRect:=Rect;
    if   StampaSetup.Execute then

    CurrentPrinter.BeginDoc;
    Img.AutoSize:=true;
    Img.scalemode:=smstretch;
    Img.Bitmap.Drawto(Printer.Canvas.Handle, Printer.Canvas.ClipRect,Img.Bitmap.BoundsRect);
    CurrentPrinter.EndDoc;

end;
Ecco l'errore:
Left side cannot be assigned to

Abbi pazienza...