Перемещение курсора на нужный компонент по порядку

[Staziah2]

Добрый день! Подскажите пожалуйста, что нужно прописать,чтобы не мышкой кликать на нужный компонент,зная порядки TabOrder-а, а клавишей Enter.
Например: с "Тип документа" при нажатии клавиши Enter, курсор перешел на "Цех". То бишь,не мышкой двигать,и не пользоваться клавишей Tab.Компоненты: Edit, два wwDBLookup-a. Delphi 7.

[Аватар]

Для Edit-а так, например

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var xControl: TWinControl;
begin
  if Key=13 then begin
    xControl:=FindNextControl(Sender as TWinControl,True,True,False);
    if xControl<>nil then ActiveControl:=xControl;
  end;
end;

wwDBLookup - не знаю таких

[Человек_Борща]

Это табуляция в стиле MAC. Дома лежит компонент под это дело.