¿ Para que te acepte el numero ? o para que SOLAMENTE te acepte numeros con decimales. En el primer caso no tienes que hacer nada ya que el edit acepta lo que le eches. En el segundo de los casos puedes utilizar lo siguiente
procedure TFormPrincipal.DBEdit3KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',', ',#8]) then
Key:=#0;
end;
Suerte