안녕하세요..
아래 내용은 뉴스그룹에 소개되었던 MDI메인 폼에
이미지를 삽입하는 팁입니다.
보시고 도움 되시길 바랍니다.

  unit Unit1;

   interface

   uses   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,  Forms, Dialogs, StdCtrls;

   type
     TForm1 = class(TForm)
       procedure FormCreate(Sender: TObject);
       procedure FormDestroy(Sender: TObject);
     private
       { Private declarations }
       FOldDefWndProc : Pointer;
       FNewDefWndProc : Pointer;

       procedure ClientWndProc ( var Msg: TMessage );
     public
       { Public declarations }
     end;

   var  Form1: TForm1;

   implementation

   {$R *.DFM}

   procedure TForm1.ClientWndProc;
   var
     ClientDC : HDC;
     MemDC    : TBitmap;
     MemDCX   : Integer;
     MemDCY   : Integer;
   begin
     case Msg.Msg of
       WM_PAINT : begin
                    ClientDC := GetDC ( ClientHandle );
  
                    MemDC := TBitmap.Create;
                    MemDC.LoadFromFile ( 'C:\ATHENA.BMP' );
                    MemDCX := 0;
                    MemDCY := 0;
                    repeat
                      repeat
                        BitBlt ( ClientDC, MemDCX, MemDCY, MemDC.Width,
                                   MemDC.Height, MemDC.Canvas.Handle,  0, 0, SRCCOPY );
                        Inc ( MemDCX, MemDC.Width );

                      until MemDCX >= ClientWidth;
                    MemDCX := 0;
                    Inc ( MemDCY, MemDC.Height );
                   until MemDCY >= ClientHeight;
                   ReleaseDC ( ClientHandle, ClientDC );
                   MemDC.Free;
                   end;
         end;
    with Msg do
      Result := CallWindowProc ( FOldDefWndProc, ClientHandle,  Msg, wParam, lParam );
  end;

  procedure TForm1.FormCreate(Sender: TObject);
  begin
    FNewDefWndProc := MakeObjectInstance ( ClientWndProc );
    FOldDefWndProc := Pointer(SetWindowLong(ClientHandle,
                                               GWL_WNDPROC,
                                               LongInt ( FNewDefWndProc ) ) );
  end;

  procedure TForm1.FormDestroy(Sender: TObject);
  begin
    SetWindowLong (ClientHandle, GWL_WNDPROC, LongInt  FOldDefWndProc));
    FreeObjectInstance ( FNewDefWndProc );
  end;

  end.

답변감사드립니다.
unit Unit1;

   interface

   uses   Windows, SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,  Forms, Dialogs, StdCtrls,
  Menus, ExtCtrls;

   type
     TForm1 = class(TForm)
     MainMenu1 : TMainMenu;
    Image1: TImage;
    N1: TMenuItem;
    N2: TMenuItem;
       procedure FormCreate(Sender: TObject);
       procedure FormDestroy(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
     private
       { Private declarations }
       FClientInstance : TFarProc;
       FPrevClientProc : TFarProc;
       procedure ClientWndProc(var Message : TMessage);
     public
       { Public declarations }
     end;

   var  Form1: TForm1;

   implementation
uses
   Unit2;
   {$R *.DFM}

   procedure TForm1.ClientWndProc(var Message : TMessage);
   var
     DC : HDC;
     i, j : integer;
   begin
   with Message do
     case Msg of
       WM_ERASEBKGND : begin
                    DC := TWMEraseBkGnd(Message).DC;
                    for i := 0 to ClientHeight div Image1.Picture.Height do
                     for j := 0 to ClientWidth div Image1.Picture.Width do
                        BitBlt(DC, j * Image1.Picture.Width, i * Image1.Picture.Height, Image1.Picture.Width, Image1.Picture.Height,
                        Image1.Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
                     Result := 1;
     end;
     else
      Result := CallWindowProc(FPrevClientProc, ClientHandle, Msg, wParam, lParam);
     end;

  end;

  procedure TForm1.FormCreate(Sender: TObject);
  begin
    FClientInstance := MakeObjectInstance(ClientWndProc);
    FPrevClientProc := Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC));
    SetWindowLong(ClientHandle, GWL_WNDPROC, LongInt(FClientInstance));

Image1.Picture.Bitmap := Form1.GetFormImage;  // <- 요부분

  end;
end.

이렇게하니까 되네요.
폼 create에
   Image1.Picture.Bitmap := Form1.GetFormImage;
문장을 추가하니까 되네요.