안녕하세요~
저는 폼 1에서 검색어를 입력하고 버튼을 눌러 폼 2에 결과값이 dbgrid에 나오게 하고 있습니다.
그런데 이상한 점이.. 폼 2의 dbgrid에서 keypress event에서 엔터키 누르는 현상과 더블클릭 event를 같은 역할을 하게 했는데요.
유독 keypress 이벤트에서만 몇 번 검색하다보면 access violation 에러가 납니다. DblClick이벤트에서는
10번 넘게 해도 에러가 안 나구요..
밑에 소스 올릴께요.

procedure TForm1.sbt_selClick(Sender: TObject); // 폼 1의 소스
begin
    try
    begin
        Form2 := TForm2.Create(nil);
        Form2.Show;
    end;
    except
        showmessage('폼 생성 에러입니다');
        exit;
    end;
end;

----------------------------------------------------------------------
<<폼 2 에서의 소스>>

procedure TForm2.DBGrid2DblClick(Sender: TObject);
begin
    Form1.ed_name.Text           := Query2.FieldByName('name').AsString;
    Form1.ed_phone_num.Text := Query2.FieldByName('phone_num').AsString;
    Form1.ed_tel.Text                := Query2.FieldByName('tel').AsString;
    Form1.ed_email.Text            := Query2.FieldByName('email').AsString;
    Form1.ed_hp.Text                := Query2.FieldByName('hp').AsString;
    Form1.ed_fax.Text               := Query2.FieldByName('fax').AsString;
  
    Form1.Query1.Locate('seq',Query2.FieldByName('seq').AsInteger,[loPartialKey]);

    Close();
    Form2.Free;
    Form2 := Nil;

end;


procedure TForm2.DBGrid2KeyPress(Sender: TObject; var Key: Char);
begin
    if Key = #13 then  -> 이 부분을 제외하곤 같습니다.
    begin
          Form1.ed_name.Text           := Query2.FieldByName('name').AsString;
          Form1.ed_phone_num.Text := Query2.FieldByName('phone_num').AsString;
          Form1.ed_tel.Text                := Query2.FieldByName('tel').AsString;
          Form1.ed_email.Text            := Query2.FieldByName('email').AsString;
          Form1.ed_hp.Text                := Query2.FieldByName('hp').AsString;
          Form1.ed_fax.Text               := Query2.FieldByName('fax').AsString;
    
          Form1.Query1.Locate('seq',Query2.FieldByName('seq').AsInteger,[loPartialKey]);

         Close();
         Form2.Free;
         Form2 := Nil;
    end;
end;

도대체 어디가 잘못된걸까요??