프로그램 소스 보면 대충 알겠는데,
일단 아래의 내용들을 참고 하세요

가정으로 메인 폼이 Form1이고,
서브 폼이 Form2라고 가정하고
아래의 내용 같이 실행 버튼 부분을 지금과 같이 먼저 수정 하세요
procedure TForm1.Button1Click(Sender: TObject);
begin
      Form2 := TForm2.Create(Application);
      Form2.Showmodal;
end;

그리고 Form2의 폼 이벤트 중에서
OnClose 이벤트 내용에 아래와 같은
문장으로 코딩을 해 보세요
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        Form2   :=  nil;
        Action  :=  caFree;
end;

참고로 서브 폼에 특정 값을 보내고 싶은 분에서도
      Form2 := TForm2.Create(Application);
      // 사용자 정의 코딩 부분
      Form2.Edit1.Text := DM.Query12.fieldbyname('item_code').ASstring;
      Form2.Edit2.Text := DM.Query12.fieldbyname('item_name').ASstring;
      Form2.Showmodal;
하면 됩니다.

그대신 Form2에 OnClose 이벤트 아래와 같은 코디이 있어야 합니다.
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        Form2   :=  nil;
        Action  :=  caFree;
end;


참고 하세요

님의 답변대로 하니깐 에러는 없더군요...

그런데 중요한 부분이 안되는거 같아서염

서브폼에 디비그리드에서 선택한 내용이 서브폼의 에디트박스에

나타나지 않습니다. 아니 한번 나타납니다.

처음 쿼리가 실행되고 디비그리드에 뿌려질때 첫 Row의 값이 나오고

그다음부터는 사용자가 임의로 선택한 값은 나오지 않더라구요

=====================================================================
참고로 서브 폼에 특정 값을 보내고 싶은 분에서도
      Form2 := TForm2.Create(Application);
      // 사용자 정의 코딩 부분
      Form2.Edit1.Text := DM.Query12.fieldbyname('item_code').ASstring;
      Form2.Edit2.Text := DM.Query12.fieldbyname('item_name').ASstring;
      Form2.Showmodal;
하면 됩니다
=====================================================================
이렇게 하면 된다고 답변을 주셨는데 안됩니다.

그래서 원래대로 쿼리컴포에 afterscroll이벤트에 코딩했는데도

별 반응이 없더군요

해결 방법이 있겠습니까??

답변 부탁드립니다. 그럼 이만.