Delphi5. Kan ikke tegne på Image

Jeg har problem med nedenstående:
Når jeg med "FormActivate" har hentet et billede ind i Image1, kan jeg ikke med de nedenstående Mouse-rutiner på Image1 tegne rammen om det, der skal kopieres til Image2.
Programmet løber fint igennem Mouse-procedurerne, men det ser ud som om X- og  Y-koordinaterne ikke overføres.

Jeg har et andet program, hvor jeg med "btnHentBilledeClick" (vist nederst) henter billedet, og ellers bruger de samme Mouse-procedurer.
Det fungerer fint!
Hvad gør jeg galt?

//-------------------------------------------------------
procedure TKopiForm.FormActivate(Sender: TObject);
Var
  Bmp: TBitmap;
  Jpg: TJPEGImage;
begin
  ProgDir := GetCurrentDir;
  MaxWdt := 449;
  MaxHgh := 449;
  DrawDone := false;
  HarHentetNy := False;
  //Konverter jpg-filen til BMP og gem
  Bmp := Tbitmap.Create;
  Jpg := TJPEGImage.Create;
  Jpg.LoadFromFile(KopiBilledeNavn);
  Bmp.Assign(Jpg);  //  Indeholer nu "KopiBilledeNavn" som BMP
  Bmp.SaveToFile(ProgDir+'\_BMP_File.bmp');
  bmp.Free;
  Jpg.Free;
  Image1.Picture.LoadFromFile(ProgDir+'\_BMP_File.bmp');
  FindPicxy(KopiBilledeNavn,449); //Fast bredde
  KopiForm.Image1.Width := PicWdt;
  KopiForm.Image1.Height := PicHgh;
end;

//-------------------------------------------------------
procedure TKopiForm.Image1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
begin
  //Her skal startpunktet opsættes
  Drawing := True;
  DrawDone := False;
  Image1.Canvas.Pen.Width := 3;
  StartX := Round(X * ScaleFaktor);
  StartY := Round(Y * ScaleFaktor);
  SlutX := Round(X * ScaleFaktor);
  SlutY := Round(Y * ScaleFaktor);
  Image1.Canvas.Pen.Mode := pmNotXor;
  //Slet rammen
  Image1.Canvas.Rectangle(SletStartX, SletStartY, SletSlutX, SletSlutY);
  HarHentetNy := True;
end;

//-------------------------------------------------------
procedure TKopiForm.Image1MouseMove(Sender: TObject; Shift: ShiftState; X,  Y: Integer);
begin
  if Drawing then
  begin
    Image1.Canvas.Pen.Mode := pmNotXor;
    Image1.Canvas.Rectangle(StartX, StartY, SlutX, SlutY);
    SlutX := Round(ScaleFaktor * X);
    //ScaleFaktor er forhold mellem Image1 bredde og billedets bredde
    SlutY := Round(ScaleFaktor * Y);
    Image1.Canvas.Pen.Mode := pmNotXor;
    Image1.Canvas.Rectangle(StartX, StartY, SlutX, SlutY);
  end;
  Image1.Canvas.Pen.Mode := pmCopy;
end;

//-------------------------------------------------------
procedure TKopiForm.Image1MouseUp(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);
begin
  If Drawing Then
  Begin
    Kopier();  //Kopierer det udvalgte område på Image2
  End;
  Drawing := False;
  SletStartX := StartX;
  SletStartY := StartY;
  SletSlutX := SlutX;
  SletSlutY := SlutY;
  Image1.Canvas.Pen.Mode := pmNotXor;
  DrawDone := True;
end;

-----------------------------------------------------------------------------------------------
Fra originalt program

//-------------------------------------------------------
procedure TForm1.btnHentBilledeClick(Sender: TObject);
Var
  Bmp: TBitmap;
//  PicFormat,    //Billedformatet Bredde/Højde
//  ScaleFaktor:  //Forhold mellem Stretch og ikke-Stretch
begin
  HarHentetNy := True;
  Bmp := TBitmap.Create;
  if OpenPictureDialog1.Execute then
  Begin
    Image1.Canvas.Pen.Width := 3;
    Image1.Stretch := True;
    bmp.LoadFromFile(OpenPictureDialog1.FileName);
    FilNavn := OpenPictureDialog1.FileName;
    //Find formatet på billedet
    PicFormat := bmp.Width/bmp.Height;
    if PicFormat < 1 Then
    Begin  //Højere end bred
      Image1.Width := Round(PicFormat * MaxHgh);
      Image1.Height := MaxHgh;
    //Find Forhold mellem Stretch og ikke-Stretch
      ScaleFaktor := bmp.Height / Image1.Height;
    End
    Else
    Begin  //Brederre end høj
      Image1.Height := Round(PicFormat / MaxHgh);
      Image1.Width := MaxWdt;
      //Find Forhold mellem Stretch og ikke-Stretch
      ScaleFaktor := bmp.Width / Image1.Width;
    End;
    image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
    Bevel1.Width := Image1.Width+1;
    Bevel1.Height := Image1.Height+1;
  End;
  Bmp.Free;
end;