Ha a Form összes objektumára (már amelyiknél lehet) alkalmazni akarom a TAB-ot
helyettesítő ENTER eljárást, akkor a legegyszerűbb megoldás: A Form KeyPreview tulajdonságát True-ra
kell állítani, majd a Form OnKeyPress eseményébe az alábbi sorokat kell írni:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if (Key = #13) then //vagy 'if Key = Chr(VK_RETURN) then'
    begin
       Key := #0; //Eat the ENTER Key
       Perform(WM_NEXTDLGCTL, 0, 0); //A következő kontrol
       {Perform(WM_NEXTDLGCTL, 1, 0)} //Az előző control
    end;
end;

Ha csak bizonyos objektumokra akarom alkalmazni (a gombokra nem lehet), akkor a kívánt objektumokat kijelölve az OnKeyPress eseményüket be kell állítani az alábbi
MyKeyPress eljárásra (a Form OnKeyPress-t nem).

procedure TForm1.MyKeyPress(Sender: TObject; var Key:Char);
begin
    if Key = Chr(VK_RETURN) then //vagy 'if (Key = #13) then'
    begin
       Perform(WM_NEXTDLGCTL,0,0);
       key:= #0;
    end;
end;