POPMOBILECOMPUTER

 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;