1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

PresentPositionImage := TImage.Create(nil);
    with PresentPositionImage do
      begin
  Parent:= Form1;
        Top := Scanframe.Top;
        Left:= Scanframe.Top;
        Height := Scanframe.Height;
        Width := Scanframe.Width;
        Transparent := true;
        OnMouseMove := PresentPositionImageMouseMove;
      end;