제가 그림파일을 하나 이미지1에 띄워놓고 원본 손상없이
그위에 마우스 클릭시 원하는 위치에 글씨나 표시를 쓰고 또는 지우는 작업을 해야해서
또하나의 이미지2를 동적생성해서 원하는 작업을 했습니다.
그럼데 특정pc 에서 이미지2를 다시 생성했을때 밑그림이 안보입니다.
image2.Transparent := True; 로 했는데도요.
첨부한 샘플프로그램을 문제pc 에서 실행했을 때(일반적으론 잘 됩니다.)
처음엔 밑그림이 보이고 이미지위에 마우스클릭으로 사각형 그리고
지우려고 버튼을 누르고 나면 그다음부터 하얗게 됩니다.
왜 특정컴에서만 그럴까요?  (실행파일 첨부합니다.)

procedure TForm1.Button1Click(Sender: TObject);
begin
  Image2.Free;
  Image2:=TImage.Create(nil);
  Image2.Parent := Panel1;
  Image2.Align := alClient;
  image2.Width := 1280;
  image2.Height := 800;
  image2.Transparent := True;
  image2.OnMouseDown := Image2MouseDown;
end;

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Image2.Canvas.Rectangle(x,y,x+10,y+10);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image2.Free;
  Image2:=TImage.Create(nil);
  Image2.Parent := Panel1;
  Image2.Align := alClient;
  image2.Width := 1280;
  image2.Height := 800;
  image2.Transparent := True;
  image2.OnMouseDown := Image2MouseDown;
end;