폼 102에서 폼 1021을 보여줍니다.
폼1021이 보여진 상태에서 커서가 폼102에 갈 수 있게 하기위해...
다음과 같이 보여줍니다.
(폼1021은 Auto Create로 설정했습니다)

procedure TFm102.R1Click(Sender: TObject);
begin    
    if not Fm1021.Visible then
       Fm1021:= tFm1021.create(Self);----->여러번이벤트가 있으면 에러..

    Fm1021.ac_bmyy.text := ac_bmyy.text;
    Fm1021.ac_bmmm.text := ac_bmmm.text;
    Fm1021.Show;
end;
이후 폼1021의 데이터(Query)를 폼102에 넘겨줍니다.
폼 1021에서도 여러가지 조회 등을 합니다.폼 1021에는 Grid도 Query도
버튼도... 컴포넌트가 여러개 있습니다.

폼1021을 닫을때 다음과 같이 메모리에서 해제를 해 줍니다.
procedure TFm1021.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    SQLpm.Close;
    Action := CaFree;
end;

폼 102를 닫을때 다음과 같이 메모리에서 해제 해 줍니다.
procedure TFm102.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if Fm1021.Visible then begin   ----->여러번이벤트가 있으면 에러..
      try
        Fm1021.Close;
      finally
       Fm1021.Free;
      end;
   end;
   Action := caFree;
end;

문제: 1021폼을 여러번 닫았다가 생성(TFm102.R1Click) 할 경우
       엑세스 바이올레이션이 걸립니다.
       이럴경우 102폼을 닫아도 역시 엑세스 바이올레이션이 걸립니다.

매번 질문이 소설을 쓰는것 같아 죄송합니다.
고수님들 어떻게 해야 합니까?..