if key = vk_Next then begin
      key := word(#0);  <-- 추가
      ComboBox1.DroppedDown := True;
      ComboBox1.ItemIndex := 0;
      ComboBox1.SetFocus;
   end;

procedure TFm102.Ne_gjmnKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = vk_Next then begin
      key := word(#0);
      Ne_gjmn.DroppedDown := True;
      Ne_gjmn.ItemIndex := 0;
      Ne_gjmn.SetFocus;
      Ne_gjmn.Text := '';
      Ne_gjmn.Text := Ne_gjmn.Items[Ne_gjmn.ItemIndex];
   end;
   PageDown 버튼을 누르면 콤보박스가 촥~ 펼쳐집니다.
   커서는 맨위(1면)에 가 있구요...
   그래서 이번에 그상태 그대로 (맨위커서-1면)선택을 하려고 Enter를 칩니다.
   아래 소습니다.

   if key = vk_return then begin
      Ne_gjmn.Text := '';
      Ne_gjmn.Text := Ne_gjmn.Items[Ne_gjmn.ItemIndex];
      Ne_jgrr.SetFocus;
   end;
   음....안되네요... 기본으로 준 값(내지)이 콤보박스에 나타나는 군요...
   위아래 방향키로 움직인 후 Enter를 치면 잘 됩니다.
   그런데 PageDown을 누른 상태에서 Enetr를 누르면 정말 안됩니다.
   1시간 30분이나 이렇게 저렇게 해도 안되네요... 쩝...

end;

죄송한데요. 질문이 잘 이해가 안 되요. ^^;;
원하시는 결과가 무엇인지를
다시 한번 자세하게 설명 부탁합니다.
그럼 수고하세요.

procedure TFm102.Ne_gjmnKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key = vk_Next then begin
      key := word(#0);
      Ne_gjmn.DroppedDown := True;
      Ne_gjmn.ItemIndex := 0;
      Ne_gjmn.SetFocus;
      Ne_gjmn.Text := '';
      Ne_gjmn.Text := Ne_gjmn.Items[Ne_gjmn.ItemIndex];
   end;
   if key = vk_return then begin
      Ne_gjmn.Text := '';
      Ne_gjmn.Text := Ne_gjmn.Items[Ne_gjmn.ItemIndex];
      Ne_jgrr.SetFocus;
   end;  
end;
위 소스는 키보드의 PageDown을 누르면 콤보박스가 쫙~ 펼쳐지면서
커서는 콤보박스의 제일 처음 ItemIndex에 위치합니다.
이상태에서 방향키로 움직여 Itemindex를 변경하고 키보드의 Enter를 누르면
촥~ 펼져졋던 콤보박스가 없어지고 콤보박스 Text에는 원하는 Itemindex가
나타납니다.
그러나
PageDown을 누른 상태에서 (이때 커서는 Itemindex := 0의 위치에 있죠)
방향키로 움직이지 않고 그냥 Enter를 누르면 콤보박스가 없어지고
콤보박스 Text에는 Itemindex := 0의 값이 아닌 다른것이 옵니다.

나만 그런가?.... 쩝...
님 읽어주셔서 감사합니다.