TComboBoxEx og enter

Jeg er ved at gå amok. Jeg har et program hvor jeg på en form har nogle TComboBoxEx´er, for at skifte mellem dem benytter jeg ENTER og for at få det til at virker har jeg denne kode i formens OnKeyPress og det virker ganske fint.

var
    wincontrol    : TWincontrol;
begin
  if (key=#13) then
    begin
wincontrol:=FindNextControl(Activecontrol,true,true,false);
        wincontrol.setfocus;
        key:=#0;
    end;
end;

Nu vil jeg så lave det samme i et nyt program men der kan jeg bare ikke få det til at virke, når jeg trykker på ENTER kaldes koden i OnKeyPress ikke, meget mystisk syntes jeg.
Jeg bruger Delphi 7