Delphi dicas

Obrigar o usuário a digitar somente números

Obrigar a digitar somente números...



procedure TForm.Edit1KeyPress(Sender: TObject; var Key: Char);

var

s:string;

begin

        s := char(key);



        if key = Char(ORD(8)) then

        exit

        else

        if not (s[1] in ['0'..'9']) then

        key := char(nil);

end;

por : Danilo Marcos De Souza