[raudelink]

OK, me funciono perfecto, Gracias por su ayuda, y si a alguien les es util, le agrege una linea para evitar el sonido del beep cuando presionas enter

if key=#13 then
begin
key:=#0;
SelectNext(Sender As TWinControl, true, true);
end;