[M.A.D.M.A.N.]

Можно так попробовать

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_RETURN then 
  begin
    Perform(WM_KEYDOWN, VK_TAB, ...);
    Perform(WM_KEYUP, VK_TAB, ...);
  end;
end;