ehlib key up down but control on edit.text

 procedure TFormEntry.SearchEditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

    if (key = vk_down) or (Key = vk_up) or (key = vk_next) or (key = vk_prior)

       or (key = vk_right) or (key = vk_left) then

       begin

          EhList.Perform(WM_KEYDOWN,Key,0);

          // if not(EhList.Focused) then EhList.DeepFocus;

          Key := 0;

       end

end;