Função: Validar Números Inteiros - Códigos Delphi

Função: Validar Números Inteiros

// Testa se o Número em uma Strig é Inteiro

// No Evento KeyPress Digite... with Sender do if Key = #13 then begin SelectNext(Sender as tWinControl, True, True); Key := #0; end else KPressIntOnly(Key);