Frm9001 폼
...
procedure TFrm9001.StringGrid1DblClick(Sender: TObject);
var
//  jumun : Jumun_List;
  IRow,ICol : integer;
begin
try
  Irow := StringGrid1.Row;
  ICol := StringGrid1.col;
  
//  UH_FRM8001 := 0;

//  if UH_FRM8001 < 0 then
    UH_FRM8001 := Windows.FindWindow(pchar('Tfrm8001'),PChar('주문'));
//  else
  if UH_FRM8001 > 0 then
   begin
     if trim(StringGrid1.Cells[8,IRow]) = '미체결' then
     begin
       jumun.Accno    := trim(ComboBox4.text);
       if MaskEdit3.Text <> '' then
         jumun.Passwd   := trim(MaskEdit3.Text)
       else
       begin
         showmessage('비밀번호를 입력하세요');
         exit;
       end;
       jumun.Number    := '2';
       jumun.CodeNum  := trim(StringGrid1.Cells[10,IRow]); //6자리
       if trim(StringGrid1.Cells[0,IRow]) <> '' then
         jumun.Orderno   := trim(StringGrid1.Cells[0,IRow])
       else
       begin
         showmessage('주문번호가 없습니다.');
         exit;
       end;
       windows.SendMessage(UH_FRM8001,JONGMOK_CODE,WPARAM(9001),LPARAM(@jumun));
     end
     else
     begin
       showmessage('체결된것은 정정할수 없습니다');
       exit;
     end;
   end;
//FreeMemory(@jumun);
except
showmessage('try StringGrid1DblClick except 9001');
end;
end;  


Frm8001 폼
....
Procedure TFrm8001.OnJONGMOKFind(var MSG: TMessage);
var
//   jumun : ^Jumun_List;
   i    : integer;
   temp_Boolean : boolean;
   Jumun_Number, jumun_Accno, jumun_Passwd, jumun_CodeNum,
   jumun_Orderno : string;
begin
try
  jumun := Pointer(MSG.LParam);

  Jumun_Number  := jumun.Number;
  jumun_Accno   := jumun.Accno;
  jumun_Passwd  := jumun.Passwd;
  jumun_CodeNum := jumun.CodeNum;
  jumun_Orderno := jumun.Orderno;

  U_Jong_Code := '';
  temp_boolean := true;
  if msg.WParam = 9001 then //체결조회화면
//  if StrTOint(jumun_Number) < 5 then //체결조회에서 더블클릭한경우
  begin
    case StrToint(jumun_Number) of
      1 : //매도
      begin
        PageControl1.ActivePageIndex := 1;
        for i := 0 to ComboBox3.Items.Count -1 do
        begin
          if (trim(ComboBox3.Items[i]) = trim(jumun_Accno)) then
          begin
            ComboBox3.ItemIndex := i;
            temp_boolean := false;
            break;
          end;
//          temp_boolean := true;
        end;
        if temp_Boolean then
        begin
          showmessage('해당계좌가없습니다. 확인하세요');
          exit;
        end;
        MaskEdit7.Text := jumun_Passwd;
        U_Jong_Code     := jumun_CodeNum;
        Orderno         := jumun_Orderno;
        PageControl1Change(PageControl1);
      end;
      2 : // 정정
      begin
        PageControl1.ActivePageIndex := 2;
        for i := 0 to ComboBox10.Items.Count -1 do
        begin
          if (trim(ComboBox10.Items[i]) = trim(jumun_Accno)) then
          begin
            ComboBox10.ItemIndex := i;
            temp_boolean := false;
            break;
          end;
//          temp_boolean := true;
        end;
        if temp_Boolean then
        begin
          showmessage('해당계좌가없습니다. 확인하세요');
          exit;
        end;
        MaskEdit10.Text := jumun_Passwd;
        U_Jong_Code     := jumun_CodeNum;
        Orderno         := jumun_Orderno;
        PageControl1Change(PageControl1);
      end;
    end;
  end
  else if msg.WParam = 1001 then //예측신호화면
  begin
    case PageControl1.activepageindex of
      0 : MaskEdit4.text := jumun_CodeNum;
  end;
end;

Frm9001 폼의 스트링그리드에서 더블클릭해서 센드메세지를 여러번 보내면
Frm8001 폼에서 몇번을 잘 되는데 몇번이상 넘어가면 프로그램에 종료가 됩니다 어떻게 해야 할지 부탁드립니다.
그리고 메모리 해제를 해보라고 했는데
freemem, freemomery(@jumun) 이런식으로 해봤는데 똑 같더군요