Fazer um TEdit aceitar apenas números

Na rotina abaixo, o TEdit só aceitará números de 0 a 9 e o BackSpace (Chr(8)). Se você quiser a vírgula também, coloque dentro do colchete DecimalSeparator

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

begin

if not (Key in['0'..'9',Chr(8)]) then Key:= #0;

end;