Enter como TAB no Delphi Firemonkey

Usar os seguintes comandos no onKeyDown do formulario
if Key = vkReturn then
 begin
 Key := vkTab;
 KeyDown(Key, KeyChar, Shift);
 end;