MaskEdit control is een eenvoudige manier.
Je kan ook teken voor teken doorlopen (in een loopje dus

), en als het teken een getalletje is, deze in een andere var stoppen.
Je kan het jezelf ook moeilijk maken en in de keydown/keypress/change events de invoer direct afvangen.
En de allermakkelijkste manier, voor als je alleen gehele getallen wilt, is de style aanpassen met de API... Check SetWindowLong met de ES_NUMBER style, declaraties vind je in de API text viewer, gebruik is iets als
code:
1
| Call SetWindowLong(Text1.hWnd, GWL_STYLE, GetWindowsLong(Text1.hWnd, GWL_STYLE) Or ES_NUMBER) |
Niet getest maar het zal aardig in de richting komen, en anders kun je met google vast wel een sleep'n'pleur stukje code vinden

ES_NUMBER is iig de editstyle die je moet hebben.