동적으로 생성하는 하고 거기다 메세지를 처리하시려면 클래스의 멤버로 선언부터 해

주셔야 겠네요.

폼 클래스의 private에 다음과 같이 선언해  줍니다.

   MyImage : TImage;

그리고 폼의 생성 부분에서

   MyImage := TImage.Create(Self)
   with MyImage do
   begin
     Parent := Self;   // Parent를 폼으로
     Visible := True; // 보일 것인지 말것인지를 정해 주고
     AutoSize := True;
     {
      이미지를 로드하고 싶으면
      Picture.Bitmap.LoadFromResourceName(HInstance, 'MAINLOGO');
      등의 방식으로 하면 됩니다.
       }
   end;

폼의 Destroy 프로시져에서

MyImage.Free를 해 주셔야 겠죠.

마우스가 다운되었을때 메세지를 처리하기 위해선

(정확하게 말하면 이벤트에 반응하기 위해서 겠죠.)

MyImage.MouseDown := ImageMouseDown;

과 같이 할당시켜 주면 됩니다.

ImageMouseDown은 다음과 같은 형식으로

합니다.

procedure TForm1.ImageMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   // 할일들을 적어주면 됩니다....
end;

기타 다른 이벤트에 반응하기 위해서도 위와 같이 하면 됩니다.



                                               유수~