Limitar ingreso a un solo numero

[[Gabo]]

Solo quiero agregar el código que uso cuando un TEdit va a tener sólo números.

__fastcall TForm1::TForm1(TComponent* Owner)
                             :TForm(Owner)
{
    LONG dwStyle = GetWindowLong(Edit1->Handle, GWL_STYLE);
    SetWindowLong(Edit1->Handle, GWL_STYLE, dwStyle | ES_NUMBER);
}

Con esas dos líneas hago que el Edit1 sólo permita números.
Recuerden que yo programo en C++Builder, pero en Delphi se debe poder hacer también de la misma forma. Si alguien quiere traducir el código...