[Lazarus-es] Solo n?meros

[Ismael L. Donis Garc?a]

Ante todo disculpen por la sencillez de la pregunta, pero estoy trabado en 
esto.

Yo tengo el siguiente procedimiento en una caja de texto en Visual Basic 6 
para que solo permita entrada de números.

Como sería la conversión para Lazarus?

Private Sub txtPuerto_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case Is < 8
      KeyAscii = 0 'Anula la tecla presionada
    Case 9 To 12
      KeyAscii = 0
    Case 13
      txtCamino.SetFocus 'cambia hacia otra caja de texto cuando presiono la 
tecla Enter
    Case 14 To 26
      KeyAscii = 0
    Case 28 To 47
      KeyAscii = 0
    Case Is > 57
      KeyAscii = 0
  End Select
End Sub

GRACIAS
=========
¦¦ ISMAEL ¦¦
=========
PD: No tengo acceso a Internet