질문중에 중요한 부분이 빠졌군요...
if Key=vk_F2 then begin
  if Table1Code.Value = '' then
     MessageDlg('코드를 입력하세요.', ...생략
end;

위와같이 하고 현재 입력중인 필드가 Table1Code일때는
DBEdit의 Text가 Table1Code필드에 반영되지 않기 때문에
Table1Code필드에는 아무값이 들어있지 않게 됩니다.
그럼 위의 에러 메세지가 뜨게 됩니다.
참고로 그래서 저는 아래와 같이 고쳤습니다.
if Key=vk_F2 then begin
  if DBEdit1.Text = '' then
    MessageDlg('코드를 입력하세요.' ...생략
end;
그런데 아무래도 찝찝해서요. 몬가 다른 좋은 방법이 혹시 있지
않을까하는 생각에서 질문올렸습니다.