回车键作为tab使用

procedure MyKeyPress(frm:TForm; var Key: Char);
    begin
     if Key = #13 then { 如果按下了回车键 }
     begin
     Key := #0; { 吃掉回车键 }
     frm.Perform(WM_NEXTDLGCTL, 0, 0); { 移动到下一个控制 }
     end;
    end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
     MyKeyPress(Self, Key);
end;

form可以添加到reposity。