Delphi. CopyRect giver mærkelig resultat med jpg-billeder

Det kan være, at der er nogle problem med JPEG-kompressionsindstillingerne, når du bruger CopyRect-metoden. Prøv at ændre kompressionsindstillingen for billedet, inden du bruger CopyRect-metoden. Du kan også prøve at bruge en anden billedbehandlingskomponent eller bibliotek til at håndtere billedkopiering, for eksempel Graphics32 eller VCL.Graphics.
Du kan også prøve at konvertere billedet til et andet format, før du bruger CopyRect-metoden, for eksempel PNG eller BMP. Dette kan hjælpe med at undgå kompressionsfejl i billedet.

Jeg har igen kikket på programmet og kan ikke lige se, hvordan det skulle være tilfældet!
Filerne bliver hentet ind i det venstre Image1, hvis det er en *.bmp næsten direkte:
      bmp.LoadFromFile(OpenPictureDialog1.FileName);
      bmp.SaveToFile(ProgDir+'\jpg2bmp.bmp');

Hvis det er *.jpg via dette:
      jpg.LoadFromFile(OpenPictureDialog1.FileName);
      bmp.Assign(jpg);
      bmp.SaveToFile(ProgDir+'\jpg2bmp.bmp');

og til sidst ind i Image1 via:
  Image1.Picture.LoadFromFile(ProgDir+'\jpg2bmp.bmp');
 
Så hvis der er fejl, burde de kunne ses på Image1.

Kopieringen foregår således:
//-------------------------------------------------------
Function Kopier():Boolean;
Var PicFormat, xdif, ydif: Real;
    xx1, xx2, yy1, yy2: Integer;
begin
  Form1.image2.Picture := NIL;
  Form1.Image2.Width := MaxWdt;
  Form1.Image2.Height := MaxHgh;
  xx1 := StartX;  xx2 := SlutX; yy1 := StartY;  yy2 := SlutY;
  if xx1 > xx2 Then Begin StartX := xx2; SlutX := xx1; End;
  if yy1 > yy2 Then Begin StartY := yy2; SlutY := yy1; End;

  xdif :=  (SlutX - StartX);
  ydif :=  (SlutY - StartY);
  If (xdif <> 0) AND (ydif <> 0) Then
  Begin
    PicFormat := xdif / ydif;
    if PicFormat < 1 Then
    Begin  //højere end bred
      Form1.image2.Width := Round(MaxHgh * PicFormat);
      Form1.image2.Height := MaxHgh;
    End
    Else
    Begin  //  Bredere end høj
      Form1.image2.Height := Round(MaxWdt / PicFormat);
      Form1.image2.Width := MaxWdt;
    End;
    Form1.Image2.Canvas.CopyRect(Rect(0,0,Form1.Image2.Width,Form1.Image2.Height),
        Form1.Image1.Canvas, Rect(StartX+PenWidth,StartY+PenWidth,
              SlutX-PenWidth,SlutY-PenWidth));
  End;
end;

Så har jeg fundet ud af, hvad jeg har gjort galt:
Under kopieringen har både Image1 og Image2 stretch sat til true.
Hvis jeg sætter Image2.Height og Image.Width til samme værdier, som det kopierede udsnit og Image2.stretch til False, virker det.
Dum fejl!