si colocas este codigo en el evento onkeypress de un Tedit deberia solo aceptarte numeros que por lo que pude entender eso es lo que quieres hacer.
Código Delphi
[-]procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['a'..'z'] + ['A'..'Z'] then Key := #0
end;